#!/usr/local/bin/perl # $Id$ use strict; BEGIN { package FJ::C::Company::Index; use FJ::Controller; use base qw(FJ::Controller); # # PLUGINS # __PACKAGE__->plugins(); # # TEMPLATES # __PACKAGE__->templates( default => { file => 'tmpl/company/index.tmpl' }, ); # # PREPARE # sub prepare { my ($self) = @_; return 'default'; } # # METHODS # sub default { my ($self) = @_; # TODO: write code here. } 1; } # End of package definition scope. FJ::C::Company::Index->new()->process();