t/cdbi/testlib/Director.pm

   1 package # hide from PAUSE
   2     Director;
   3
   4 use strict;
   5 use base 'DBIC::Test::SQLite';
   6
   7 __PACKAGE__->set_table('Directors');
   8 __PACKAGE__->columns('All' => qw/ Name Birthday IsInsane /);
   9
  10 sub create_sql {
  11   return qq{
  12       name                    VARCHAR(80),
  13       birthday                INTEGER,
  14       isinsane                INTEGER
  15   };
  16 }
  17
  18 1;
  19