package TestApp7;
use strict;
use CGI::Application;
@TestApp7::ISA = qw(CGI::Application);
use CGI::Carp;
sub setup {
my $self = shift;
$self->run_modes(
testcgi_mode => 'testcgi_mode'
);
}
sub cgiapp_get_query {
my $self = shift;
require TestCGI;
my $q = TestCGI->new();
return $q;
}
#### Run Mode Methods
sub testcgi_mode {
my $self = shift;
my $output = "Hello World: testcgi_mode OK";
return \$output;
}
1;