Help for this page

Select Code to Download


  1. or download this
        sub new {
          my $class = shift;
    ...
          $self->init(@_);
          $self;
        };
    
  2. or download this
            package Foo::DBI;
            use base 'Class::DBI';
    ...
            sub init {
              my $self->set_db('Main', 'dbi:mysql:database', 'user', 'pass
    +word');
            }