t/cdbi/testlib/MyStarLinkMCPK.pm

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