package TestSite;
use base 'CGI::Application';
use warnings;
use strict;

sub setup {
	my $self = shift;
	$self->start_mode('mode1');
	$self->mode_param('rm');
	$self->run_modes(
		'mode1' => 'one',
		'mode2' => 'two'
	);
}

sub one {
	my $self = shift;
	my $template = $self->load_tmpl;
	return $template->output;
}

sub two {
	my $self = shift;
	my $q = $self->query();
	my $template = $self->load_tmpl;
	$template->param(test_post => $q->param('test_post'));
	return $template->output;
}
1;