t/cdbi/testlib/Actor.pm

   1 package # hide from PAUSE
   2     Actor;
   3
   4 use strict;
   5 use warnings;
   6
   7 use base 'DBIx::Class::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