Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...
$application->run();

exit 0;
  2. or download this
    package self;

...
};

1;
  3. or download this
    sub setup {
    my ($self) = shift;
...
    #
    $self->param('dbh' => DBI->connect());
};
  4. or download this
    sub teardown {
    my ($self) = shift;
...
    #
    $self->param('dbh')->disconnect;
};
  5. or download this
    #   An example run-mode method
#
...

    return $html->output;           #   return template output to CGI:
+:Application framework for display (*GOOD*)
};