t/testlib/MyStarLinkMCPK.pm

   1 package # hide from PAUSE
   2     MyStarLinkMCPK;
   3
   4 BEGIN { unshift @INC, './t/testlib'; }
   5 use base 'MyBase';
   6
   7 use MyStar;
   8 use MyFilm;
   9
  10 use strict;
  11
  12 # This is a many-to-many mapping table that uses the two foreign keys
  13 # as its own primary key - there's no extra 'auto-inc' column here
  14
  15 __PACKAGE__->set_table();
  16 __PACKAGE__->columns(Primary => qw/film star/);
  17 __PACKAGE__->columns(All     => qw/film star/);
  18 __PACKAGE__->has_a(film => 'MyFilm');
  19 __PACKAGE__->has_a(star => 'MyStar');
  20
  21 sub create_sql {
  22         return qq{
  23     film    INTEGER NOT NULL,
  24     star    INTEGER NOT NULL,
  25     PRIMARY KEY (film, star)
  26   };
  27 }
  28
  29 1;
  30