t/cdbi/testlib/Actor.pm

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