]>
Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - Plain.pm
209cc3eb90b626a9da697db0d0a9e7d9827efbf3
1 package # hide from PAUSE
6 use base qw
/DBIx::Class::Schema/;
9 my $db_file = "t/var/Plain.db";
11 unlink($db_file) if -e
$db_file;
12 unlink($db_file . "-journal") if -e
$db_file . "-journal";
13 mkdir("t/var") unless -d
"t/var";
15 my $dsn = "dbi:SQLite:${db_file}";
17 __PACKAGE__-
>load_classes("Test");
18 my $schema = __PACKAGE__-
>compose_connection(
26 my $dbh = DBI-
>connect($dsn);
31 name VARCHAR(32) NOT NULL
34 INSERT INTO test (id, name) VALUES (1, 'DBIC::Plain is broken!');
38 $dbh->do($_) for split(/\n\n/, $sql);
This page took 0.036995 seconds and 3 git commands to generate.