added more many_to_many tests and changed add_to_rel to accept linking table column...
[dbsrgits/DBIx-Class-Historic.git] / t / testlib / MyFilm.pm
1 package # hide from PAUSE 
2     MyFilm;
3
4 BEGIN { unshift @INC, './t/testlib'; }
5 use base 'MyBase';
6 use MyStarLink;
7
8 use strict;
9
10 __PACKAGE__->set_table();
11 __PACKAGE__->columns(All => qw/filmid title/);
12 __PACKAGE__->has_many(_stars => 'MyStarLink');
13 __PACKAGE__->columns(Stringify => 'title');
14
15 sub _carp { }
16
17 sub stars { map $_->star, shift->_stars }
18
19 sub create_sql {
20         return qq{
21     filmid  TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY,
22     title   VARCHAR(255)
23   };
24 }
25
26 1;
27