t/cdbi/testlib/Director.pm

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