package Super::Person;
use base qw(Class::DBI);
__PACKAGE__->table('people');
__PACKAGE__->has_many( 'sessions', 'Super::Session', 'person' );
...