Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

package # hide from PAUSE
Blurb;
use strict;
__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;