Commit | Line | Data |
---|---|---|
0009fa49 | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | use lib qw(lib t/lib); | |
6 | ||
ba19fccc | 7 | use DBICTest; |
064ec2db | 8 | use DBICTest::Schema; |
ebf846e8 | 9 | use SQL::Translator; |
0009fa49 | 10 | |
ba19fccc | 11 | my $schema = DBICTest::Schema->connect(DBICTest->_database); |
181b2261 | 12 | print scalar ($schema->storage->deployment_statements( |
13 | $schema, | |
14 | 'SQLite', | |
15 | undef, | |
16 | undef, | |
17 | { producer_args => { no_transaction => 1 } } | |
18 | )); |