package Stuff::DBI;
use base qw(Class::DBI);

sub db_Main {
    return shift->choose_dbh;
}

sub choose_dbh {
    my $self = shift;
    my $dsn = $self->get_dsn;
    my ($dbuser, $dbpass) = $self->get_db_id;
    return Ima::DBI->connect_cached($dsn, $dbuser, $dbass);
}