projects
/
dbsrgits/DBIx-Class.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
70e30ae15042812f5ed202a14025cefd9c18775b
[dbsrgits/DBIx-Class.git]
/
maint
/
gen-schema.pl
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
use lib qw(lib t/lib);
6
7
use DBICTest;
8
use DBICTest::Schema;
9
use SQL::Translator;
10
11
my $schema = DBICTest::Schema->connect(DBICTest->_database);
12
print scalar ($schema->storage->deployment_statements(
13
$schema,
14
'SQLite',
15
undef,
16
undef,
17
{ producer_args => { no_transaction => 1 } }
18
));