Commit | Line | Data |
---|---|---|
c6d74d3e | 1 | package # hide from PAUSE |
2 | MyStarLink; | |
ea2e61bf | 3 | |
ea2e61bf | 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 |