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);