Help for this page
#!/usr/bin/perl ... $application->run(); exit 0;
package self; ... }; 1;
sub setup { my ($self) = shift; ... # $self->param('dbh' => DBI->connect()); };
sub teardown { my ($self) = shift; ... # $self->param('dbh')->disconnect; };
# An example run-mode method # ... return $html->output; # return template output to CGI: +:Application framework for display (*GOOD*) };
www.com | www.net | www.org
No recent polls found