package Foo::DBI;
        use base 'Class::DBI';
        use Class::MethodMaker
                new_with_init   => 'new';

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