Commit | Line | Data |
---|---|---|
50891152 | 1 | package # hide from PAUSE |
2 | ActorAlias; | |
3 | ||
4 | use strict; | |
5 | use warnings; | |
6 | ||
97d61088 | 7 | use base 'DBIC::Test::SQLite'; |
50891152 | 8 | |
9 | __PACKAGE__->set_table( 'ActorAlias' ); | |
10 | ||
11 | __PACKAGE__->columns( Primary => 'id' ); | |
12 | __PACKAGE__->columns( All => qw/ actor alias / ); | |
13 | __PACKAGE__->has_a( actor => 'Actor' ); | |
14 | __PACKAGE__->has_a( alias => 'Actor' ); | |
15 | ||
16 | sub create_sql { | |
17 | return qq{ | |
18 | id INTEGER PRIMARY KEY, | |
19 | actor INTEGER, | |
20 | alias INTEGER | |
21 | } | |
22 | } | |
23 | ||
24 | 1; | |
25 |