X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=maint%2Fgen-schema.pl;h=83c8d0397d8c6c4145af0e5f2bdceff5953e1d13;hb=272ffdb8f11e46eb1af9555b080f400c789b6f61;hp=b16bd159b9aad03c619b5ce3c561eaba9079cb18;hpb=0009fa4905ab7f4585c4b470bfe049666bce8e17;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/maint/gen-schema.pl b/maint/gen-schema.pl index b16bd15..83c8d03 100755 --- a/maint/gen-schema.pl +++ b/maint/gen-schema.pl @@ -4,19 +4,8 @@ use strict; use warnings; use lib qw(lib t/lib); -use UNIVERSAL::require; +use DBICTest::Schema; +use SQL::Translator; -my $from = 'SQL::Translator::Parser::DBIx::Class'; -my $to = 'SQL::Translator::Producer::SQLite'; -my $sqlt = 'SQL::Translator'; -my $schema = 'DBICTest::Schema'; - -$from->require; -$to->require; -$sqlt->require; -$schema->require; - -my $tr = $sqlt->new; - -$from->can("parse")->($tr, $schema); -print $to->can("produce")->($tr); +my $schema = DBICTest::Schema->connect; +print scalar ($schema->storage->deployment_statements($schema, 'SQLite'));