package My::Class::DBI::User; use base 'Class::DBI'; __PACKAGE__->table('user'); __PACKAGE__->columns( All => qw/ uid name login / ); __PACKAGE__->has_many('logins', My::Class::DBI::UserLogin => 'uid'); package My::Class::DBI::UserLogin; use base 'Class::DBI'; __PACKAGE__->table('user_login'); __PACKAGE__->columns( All => qw/ uid timestamp / ); 1;