1package # hide from PAUSE 2 Actor; 3 4use strict; 5use warnings; 6 7use base 'DBIC::Test::SQLite'; 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 16sub mutator_name_for { "set_$_[1]" } 17 18sub create_sql { 19 return qq{ 20 id INTEGER PRIMARY KEY, 21 name CHAR(40), 22 film VARCHAR(255), 23 salary INT 24 } 25} 26 271; 28 29