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


sub setup {
    my $self = shift;
    $self->run_modes({ AUTOLOAD => "handler" });
    $self->start_mode( 0 );
}


sub handler {
    my $self = shift;

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

    if ($rm eq "0") {

        return "Success!";

    } else {

        return "Failure!";

    }
}

1;