Your IP : 216.73.216.74

Current Path : /usr/share/doc/perl-DBIx-Class/t/cdbi/testlib/
Upload File :
Current File : //usr/share/doc/perl-DBIx-Class/t/cdbi/testlib/Blurb.pm

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;