1package Blurb; 2 3BEGIN { unshift @INC, './t/testlib'; } 4 5use strict; 6use base 'CDBase'; 7 8__PACKAGE__->table('Blurbs'); 9__PACKAGE__->columns('Primary', 'Title'); 10__PACKAGE__->columns('Blurb', qw/ blurb/); 11 12sub CONSTRUCT { 13 my $class = shift; 14 $class->create_blurbs_table; 15 16 # $class->make_bad_taste; 17} 18 19sub create_blurbs_table { 20 my $class = shift; 21 $class->db_Main->do( 22 qq{ 23 CREATE TABLE Blurbs ( 24 title VARCHAR(255) PRIMARY KEY, 25 blurb VARCHAR(255) NOT NULL 26 ) 27 } 28 ); 29} 30 311; 32