package MyStar; BEGIN { unshift @INC, './t/testlib'; } use base 'MyBase'; use strict; __PACKAGE__->set_table(); __PACKAGE__->columns(All => qw/starid name/); __PACKAGE__->has_many(films => [ MyStarLink => 'film' ]); # sub films { map $_->film, shift->_films } sub create_sql { return qq{ starid TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY, name VARCHAR(255) }; } 1;