+++ /dev/null
-package # hide from PAUSE
- MyStarLinkMCPK;
-
-BEGIN { unshift @INC, './t/testlib'; }
-use base 'MyBase';
-
-use MyStar;
-use MyFilm;
-
-use strict;
-
-# This is a many-to-many mapping table that uses the two foreign keys
-# as its own primary key - there's no extra 'auto-inc' column here
-
-__PACKAGE__->set_table();
-__PACKAGE__->columns(Primary => qw/film star/);
-__PACKAGE__->columns(All => qw/film star/);
-__PACKAGE__->has_a(film => 'MyFilm');
-__PACKAGE__->has_a(star => 'MyStar');
-
-sub create_sql {
- return qq{
- film INTEGER NOT NULL,
- star INTEGER NOT NULL,
- PRIMARY KEY (film, star)
- };
-}
-
-1;
-