See
CGI::Application::Loop, but basically
package HI;
use base qw[ CGI::Application ];
sub setup { warn "I AM SETUP!!!!!!!!!!!!!!!!!!" }
package main;
my $hi = HI->new();
warn "Got myself a HI, now I gotta RUN IT!!!!!!!!!!!!!!!!!";
$hi->run;
__END__
I AM SETUP!!!!!!!!!!!!!!!!!! at - line 3.
Got myself a HI, now I gotta RUN IT!!!!!!!!!!!!!!!!! at - line 6.
No such run mode 'start' at - line 7
MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!" |
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README). |
** The third rule of perl club is a statement of fact: pod is sexy. |