package Party::M::CDBI; use strict; use base 'Class::DBI'; __PACKAGE__->connection('dbi:Pg:dbname=party', 'zby', '***', { AutoCommit => 1 , RaiseError=>1}); package Party::M::CDBI::Declaration; use base Party::M::CDBI; use strict; __PACKAGE__->table('declaration'); __PACKAGE__->columns(All => qw/id usr place freetext cdate/); __PACKAGE__->has_a(usr => 'Party::M::CDBI::Usr');