Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more
1234567891011121314151617181920 package # hide from PAUSE Blurb;use warnings;use strict;use base 'DBIC::Test::SQLite';__PACKAGE__->set_table('Blurbs');__PACKAGE__->columns('Primary', 'Title');__PACKAGE__->columns('Blurb', qw/ blurb/);sub create_sql { return qq{ title VARCHAR(255) PRIMARY KEY, blurb VARCHAR(255) NOT NULL }}1;
package
# hide from PAUSE
Blurb;
use
warnings;
strict;
base
'DBIC::Test::SQLite'
;
__PACKAGE__->set_table(
'Blurbs'
);
__PACKAGE__->columns(
'Primary'
,
'Title'
'Blurb'
qw/ blurb/
sub
create_sql {
return
qq{
title VARCHAR(255) PRIMARY KEY,
blurb VARCHAR(255) NOT NULL
}
1;