Sponsoring The Perl Toolchain Summit 2025: Help make this important event another success Learn more
123456789101112131415161718 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;
package
Thing;
use
warnings;
strict;
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;