The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Thing;

use warnings;
use strict;

use base 'DBIC::Test::SQLite';

Thing->set_table("thing");
Thing->columns(All => qw(id that_thing));

sub create_sql {
    return qq{
        id              INTEGER,
        that_thing      INTEGER
    };
}

1;