[dbsrgits/DBIx-Class.git] / maint / gen-schema.pl

#!/usr/bin/perl

use strict;
use warnings;
use lib qw(lib t/lib);

use UNIVERSAL::require;

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);
Commit	Line	Data
0009fa49	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);