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


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;

    die "Oops!\n";
}

1;