Commit | Line | Data |
---|---|---|
ea2e61bf | 1 | package MyStarLink; |
2 | ||
3 | BEGIN { unshift @INC, './t/testlib'; } | |
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 |