package TestApp9;
use strict;
use CGI::Application;
@TestApp9::ISA = qw(CGI::Application);


sub setup {
    my $self = shift;
    $self->run_modes([qw(
                         noheader
                         postrun_body
                         postrun_header
                        )]);
}


sub cgiapp_postrun {
    my $self = shift;
    my $output_ref = shift;

    my $rm = $self->get_current_runmode();

    if ($rm eq "postrun_body") {

        $$output_ref .= "\npostrun was here";

    } elsif ($rm eq "postrun_header") {

        $self->header_type("redirect");
        $self->header_props(-url=>"postrun.html");

    }
}


sub noheader {
    my $self = shift;
    $self->header_type('none');
    return "Hello world: noheader";
}


sub postrun_body {
    return "Hello world: postrun_body";
}


sub postrun_header {
    return "Hello world: postrun_header";
}


1;