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