t/cdbi/testlib/Thing.pm

   1 package Thing;
   2
   3 use warnings;
   4 use strict;
   5
   6 use base 'DBIC::Test::SQLite';
   7
   8 Thing->set_table("thing");
   9 Thing->columns(All => qw(id that_thing));
  10
  11 sub create_sql {
  12     return qq{
  13         id              INTEGER,
  14         that_thing      INTEGER
  15     };
  16 }
  17
  18 1;