## Main class package My::DBI; use base 'Class::DBI'; my $dsn = "dbi:mysql:***"; my $user = "****"; my $passwd = "****"; __PACKAGE__->set_db('Main', $dsn, $user, $passwd); ## Second class package My::Tables; use base 'My::DBI'; __PACKAGE__->columns( Primary => qw[id] ); __PACKAGE__->columns( All => qw [ id author title date content ip ] ); __PACKAGE__->table('entries');