Help for this page

Select Code to Download


  1. or download this
    package Person;
use strict;
...

__PACKAGE__->table( 'person' );
__PACKAGE__->columns( All => qw(person_id sex modified first_name last
+_name) );
  2. or download this
    package Person;
use strict;
...

PersonName->table( 'person_name' );
PersonName->columns( All => qw(person_name_id person_id first_name las
+t_name) );
  3. or download this
    my $person = Person->retrieve( $person_id );

while ( my $name = $person->names ) {
   printf "%s, %s\n", $name->last_name, $name->first_name;
}