#!C:/Perl/bin/perl.exe
use lib qw( /www/local/sw/admin/lib );
use Sample::Launcher;
Sample::Launcher->new->run;
####
package Sample::Main;
use strict;
use warnings;
use base qw{CGI::Application};
use CGI::Application::Plugin::AutoRunmode;
sub get_tmpl_path {
my $self = shift;
return '/Sample/';
}
sub one :STARTRUNMODE {
my $self = shift;
my $tmpl = $self->load_tmpl( $self->get_tmpl_path() . 'One.tmpl' );
return $tmpl->output;
}
sub two :RUNMODE {
my $self = shift;
my $tmpl = $self->load_tmpl( $self->get_tmpl_path() . 'Two.tmpl' );
return $tmpl->output;
}
1;
##
##
package Sample::Launcher;
use strict;
use warnings;
use base 'Sample::Main';
sub get_tmpl_path {
my $self = shift;
return '/Sample/Launcher/';
}