package My::Collection;

use base qw/Ima::DBI/;

__PACKAGE__->set_db('foo', "dbi:pg:foo", "user", "pass", {});
__PACKAGE__->set_db('bar', "dbi:pg:bar", "user", "pass", {});

##</code><code>##

my $foo_dbh = My::Collection->db_foo;
my $bar_dbh = My::Collection->db_bar;