t/cdbi/testlib/Blurb.pm

   1 package # hide from PAUSE
   2     Blurb;
   3
   4 use strict;
   5 use base 'DBIC::Test::SQLite';
   6
   7 __PACKAGE__->set_table('Blurbs');
   8 __PACKAGE__->columns('Primary', 'Title');
   9 __PACKAGE__->columns('Blurb',   qw/ blurb/);
  10
  11 sub create_sql {
  12   return qq{
  13       title                   VARCHAR(255) PRIMARY KEY,
  14       blurb                   VARCHAR(255) NOT NULL
  15   }
  16 }
  17
  18 1;
  19