package TestAppDefault;
use base 'CGI::Application';
use CGI::Application::Plugin::ActionDispatch;
@TestAppDefault::ISA = qw(CGI::Application);
sub setup {
my $self = shift;
$self->run_modes({ home => 'home' });
}
sub home {
return "Runmode: home\n";
}
sub default_rm : Default {
my $self = shift;
return "Runmode: default_rm\n";
}
1;