Select Code to Download

person_id    mediumint unsigned auto_increment primary key,
sex          char(1) default '?' not null,
modified     date not null

name_id      mediumint unsigned auto_increment primary key,
name         varchar(255) not null

person       mediumint unsigned not null, /* references 'person' */
firstname    mediumint unsigned not null, /* references 'name' */
lastname     mediumint unsigned not null  /* references 'name' */

package Person;
use strict;
...
Person->has_many( names => 'PersonName' );

1;

package Name;
use strict;
...
Name->columns( All => qw(name_id name) );

1;

package PersonName;
use strict;
...
PersonName->columns( All => qw(person firstname name) );
PersonName->has_a( firstname => 'Name' );
PersonName->has_a( lastname => 'Name' );

#!/usr/bin/perl
#
...
while ( my $Name = $names->next() ) {
    print $Name->lastname()->name() . ', ' . $Name->firstname()->name(
+) . "\n";
}