t/testlib/MyStar.pm

   1 package # hide from PAUSE
   2     MyStar;
   3
   4 BEGIN { unshift @INC, './t/testlib'; }
   5 use base 'MyBase';
   6
   7 use strict;
   8
   9 __PACKAGE__->set_table();
  10 __PACKAGE__->columns(All => qw/starid name/);
  11 __PACKAGE__->has_many(films => [ MyStarLink => 'film' ]);
  12
  13 # sub films { map $_->film, shift->_films }
  14
  15 sub create_sql {
  16         return qq{
  17                 starid  TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY,
  18                 name   VARCHAR(255)
  19         };
  20 }
  21
  22 1;
  23