Help for this page
== this is the "base module shared by all - I use base *it* instead of + CGI::App directly. package YPTP::App; ... return 1 if($type eq 'admin'); # admin can do anything return 0; # everyone else can't do a thing }
sub authorize { my $self = shift; ... return $auth->{_default}; } }