6244702f57d695ce2dccd40c3c82bce31d8b07c0
[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::Schema;
8 use SQL::Translator;
9
10 my $sql_join_str = '';
11 if (SQL::Translator->VERSION >= 0.09001) {
12     $sql_join_str .= ";";
13 }
14 if (SQL::Translator->VERSION >= 0.09) {
15     $sql_join_str .= "\n";
16 }
17
18 my $schema = DBICTest::Schema->connect;
19 print join ($sql_join_str,$schema->storage->deployment_statements($schema, 'SQLite') );