sub new {
      my $class = shift;
      $class = ref $class || $class;
      my $self = {};
      bless $self, $class;
      $self->init(@_);
      $self;
    };

##</code><code>##

        package Foo::DBI;
        use base 'Class::DBI';

        sub new {
          my $self = (shift)->SUPER::new( @_ );
          $self->init();
          return $self;
        }

        sub init {
          my $self->set_db('Main', 'dbi:mysql:database', 'user', 'password');
        }