package MyBase::MyApp;
use base 'MyBase';
use strict;
use CGI::Application::Plugin::ViewCode;
=head1 NAME MyBase::MyApp - Stuff
=cut
sub setup {
my $self = shift;
$self->run_modes(
stuff => 'stuff',
);
$self->start_mode('stuff');
}
sub stuff {
my $self = shift;
return qq(Some Stuff);
}
1;