Help for this page
package My::Collection; ... __PACKAGE__->set_db('foo', "dbi:pg:foo", "user", "pass", {}); __PACKAGE__->set_db('bar', "dbi:pg:bar", "user", "pass", {});
my $foo_dbh = My::Collection->db_foo; my $bar_dbh = My::Collection->db_bar;