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