t/cdbi/testlib/MyStarLink.pm

   1 package # hide from PAUSE
   2     MyStarLink;
   3
   4 use base 'MyBase';
   5
   6 use strict;
   7
   8 __PACKAGE__->set_table();
   9 __PACKAGE__->columns(All => qw/linkid film star/);
  10 __PACKAGE__->has_a(film  => 'MyFilm');
  11 __PACKAGE__->has_a(star  => 'MyStar');
  12
  13 sub create_sql {
  14   return qq{
  15     linkid  TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY,
  16     film    TINYINT NOT NULL,
  17     star    TINYINT NOT NULL
  18   };
  19 }
  20
  21 1;
  22