Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more
1234567891011121314151617181920 package # hide from PAUSE Director;use warnings;use strict;use base 'DBIC::Test::SQLite';__PACKAGE__->set_table('Directors');__PACKAGE__->columns('All' => qw/ Name Birthday IsInsane /);sub create_sql { return qq{ name VARCHAR(80), birthday INTEGER, isinsane INTEGER };}1;
package
# hide from PAUSE
Director;
use
warnings;
strict;
base
'DBIC::Test::SQLite'
;
__PACKAGE__->set_table(
'Directors'
);
__PACKAGE__->columns(
'All'
=>
qw/ Name Birthday IsInsane /
sub
create_sql {
return
qq{
name VARCHAR(80),
birthday INTEGER,
isinsane INTEGER
}
1;