package TestApp11;
use strict;
use CGI::Application;
@TestApp11::ISA = qw(CGI::Application);
# Prevent output to STDOUT
$ENV{CGI_APP_RETURN_ONLY} = 1;
sub setup {
my $self = shift;
$self->run_modes( mode1 => "mode1" );
$self->start_mode( 'mode1' );
$self->error_mode( 'error' );
}
sub mode1 {
my $self = shift;
die "mode1 failed!\n";
}
sub error {
my $self = shift;
my ($error) = @_;
return "Success! Received '$error'";
}
1;