We can now generate our own test schema
[dbsrgits/DBIx-Class-Historic.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 UNIVERSAL::require;
8
9 my $from = 'SQL::Translator::Parser::DBIx::Class';
10 my $to = 'SQL::Translator::Producer::SQLite';
11 my $sqlt = 'SQL::Translator';
12 my $schema = 'DBICTest::Schema';
13
14 $from->require;
15 $to->require;
16 $sqlt->require;
17 $schema->require;
18
19 my $tr = $sqlt->new;
20
21 $from->can("parse")->($tr, $schema);
22 print $to->can("produce")->($tr);