t/testlib/Actor.pm

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