view release on metacpan or  search on metacpan

templates/main.menu.pm.tmpl  view on Meta::CPAN

package <tmpl_var name=prefix>::MainMenu;

use base '<tmpl_var name=prefix>::CGIApp';
use strict;
use warnings;

our $VERSION = '1.00';

# -----------------------------------------------

sub cgiapp_init
{
	my($self) = @_;

	$self -> cgiapp_init_local();
	$self -> run_modes(['main_menu']);

} # End of cgiapp_init.

# -----------------------------------------------

sub main_menu
{
	my($self)     = @_;
	my($template) = $self -> load_tmpl('main.menu.tmpl');

	return $self -> output($template -> output() );

} # End of main_menu.

# -----------------------------------------------

1;