package TestApp4;
use strict;
use CGI::Application;
@TestApp4::ISA = qw(CGI::Application);
sub setup {
my $self = shift;
$self->start_mode('subref_test');
$self->run_modes(
'subref_test' => \&subref_test,
'AUTOLOAD' => \&autoload_meth
);
}
############################
#### RUN MODE METHODS ####
############################
sub subref_test {
my $self = shift;
my $output = "Hello World: subref_test OK";
return \$output;
}
sub autoload_meth {
my $self = shift;
my $real_rm = shift;
return "Hello World: $real_rm OK";
}
1;