1package Director; 2 3BEGIN { unshift @INC, './t/testlib'; } 4 5use strict; 6use base 'Class::DBI::Test::SQLite'; 7 8__PACKAGE__->set_table('Directors'); 9__PACKAGE__->columns('All' => qw/ Name Birthday IsInsane /); 10 11sub create_sql { 12 return qq{ 13 name VARCHAR(80), 14 birthday INTEGER, 15 isinsane INTEGER 16 }; 17} 18 191; 20 21