1package Actor;
2
3BEGIN { unshift @INC, './t/testlib'; }
4
5use strict;
6use warnings;
7
8use base 'Class::DBI::Test::SQLite';
9
10__PACKAGE__->set_table('Actor');
11
12__PACKAGE__->columns(Primary   => 'id');
13__PACKAGE__->columns(All       => qw/ Name Film Salary /);
14__PACKAGE__->columns(TEMP      => qw/ nonpersistent /);
15__PACKAGE__->columns(Stringify => 'Name');
16__PACKAGE__->add_constructor(salary_between => 'salary >= ? AND salary <= ?');
17
18sub mutator_name_for {
19	my ($class, $column) = @_;
20	return "set_" . $column->name;
21}
22
23sub create_sql {
24	return qq{
25		id     INTEGER PRIMARY KEY,
26		name   CHAR(40),
27		film   VARCHAR(255),
28		salary INT
29	}
30}
31
321;
33
34