package Person;
use strict;
use warnings;
use base 'My::DBI';

Person->table( 'person' );
Person->columns( All => qw(person_id sex modified) );
Person->has_many( names => 'PersonName' );

package PersonName;
use strict;
use warnings;
use base 'My::DBI';

PersonName->table( 'person_name' );
PersonName->columns( All => qw(person_name_id person_id first_name last_name) );