Select Code to Download

    sub new {
      my $class = shift;
...
      $self->init(@_);
      $self;
    };

        package Foo::DBI;
        use base 'Class::DBI';
...
        sub init {
          my $self->set_db('Main', 'dbi:mysql:database', 'user', 'pass
+word');
        }