projects
/
dbsrgits/DBIx-Class.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ffd2df7995289cc4433b78cfa70af86751382d0f
[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
9
my $schema = DBICTest::Schema->connect;
10
11
print $schema->storage->deployment_statements($schema, 'SQLite');