Commit | Line | Data |
---|---|---|
8273e845 | 1 | package # hide from PAUSE |
c6d74d3e | 2 | Actor; |
ea2e61bf | 3 | |
ea2e61bf | 4 | use strict; |
5 | use warnings; | |
6 | ||
97d61088 | 7 | use base 'DBIC::Test::SQLite'; |
ea2e61bf | 8 | |
9 | __PACKAGE__->set_table('Actor'); | |
10 | ||
11 | __PACKAGE__->columns(Primary => 'id'); | |
12 | __PACKAGE__->columns(All => qw/ Name Film Salary /); | |
13 | __PACKAGE__->columns(TEMP => qw/ nonpersistent /); | |
14 | __PACKAGE__->add_constructor(salary_between => 'salary >= ? AND salary <= ?'); | |
15 | ||
05ccf064 | 16 | sub mutator_name_for { "set_$_[1]" } |
ea2e61bf | 17 | |
18 | sub create_sql { | |
6a3bf251 | 19 | return qq{ |
20 | id INTEGER PRIMARY KEY, | |
21 | name CHAR(40), | |
8273e845 | 22 | film VARCHAR(255), |
6a3bf251 | 23 | salary INT |
24 | } | |
ea2e61bf | 25 | } |
26 | ||
27 | 1; | |
28 |