DBICのMLで

perl 



package DB::MyTestSchema::Student;
use strict;

use base qw|DBIx::Class|;

my $pkg = __PACKAGE__;
$pkg->load_components( qw| PK::Auto Core | );

$pkg->table('students');

$pkg->add_columns(qw|id first_name last_name age|);

$pkg->set_primary_key( qw| id | );

$pkg->has_many( school_attendees => 'DB::MyTestSchema::SchoolAttendee', 'id' );

1;

こうかくならCLASS.pmをつかおうよ。
と、思った。

http://search.cpan.org/dist/CLASS/