Help for this page
sub new { my $self = shift; my $q = $self->query(); ... return $output; }
sub new { my $class = shift; my %data = { 'member data' => 'initial value' }; return bless \%data, $class; }
sub new { my $class = shift; my $self = $class->SUPER::new(); # call CGI::Application's new meth +od # do your own initialization, as desired }
www.com | www.net | www.org
No recent polls found