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