t/cdbi/testlib/MyStar.pm

   1 package # hide from PAUSE
   2     MyStar;
   3
   4 use warnings;
   5 use strict;
   6
   7 use base 'MyBase';
   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