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;