Commit | Line | Data |
---|---|---|
8273e845 | 1 | package # hide from PAUSE |
c6d74d3e | 2 | MyStarLink; |
ea2e61bf | 3 | |
4a233f30 | 4 | use warnings; |
ea2e61bf | 5 | use strict; |
6 | ||
4a233f30 | 7 | use base 'MyBase'; |
8 | ||
ea2e61bf | 9 | __PACKAGE__->set_table(); |
10 | __PACKAGE__->columns(All => qw/linkid film star/); | |
11 | __PACKAGE__->has_a(film => 'MyFilm'); | |
12 | __PACKAGE__->has_a(star => 'MyStar'); | |
13 | ||
14 | sub create_sql { | |
6a3bf251 | 15 | return qq{ |
ea2e61bf | 16 | linkid TINYINT NOT NULL AUTO_INCREMENT PRIMARY KEY, |
17 | film TINYINT NOT NULL, | |
18 | star TINYINT NOT NULL | |
19 | }; | |
20 | } | |
21 | ||
22 | 1; | |
23 |