t/testlib/MyStarLink.pm

   1 package # hide from PAUSE
   2     MyStarLink;
   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/linkid film star/);
  11 __PACKAGE__->has_a(film  => 'MyFilm');
  12 __PACKAGE__->has_a(star  => 'MyStar');
  13
  14 sub create_sql {
  15         return qq{
  16     linkid  TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY,
  17     film    TINYINT NOT NULL,
  18     star    TINYINT NOT NULL
  19   };
  20 }
  21
  22 1;
  23