# vim: set ft=perl:
#
+#BEGIN { print "0..0\n"; }
+
use strict;
use Data::Dumper;
use SQL::Translator;
-use SQL::Translator::Parser::MySQL qw(parse);
+use SQL::Translator::Parser::MySQL;
+use SQL::Translator::Producer::XML;
$SQL::Translator::DEBUG = 0;
-my $tr = SQL::Translator->new;
+my $tr = SQL::Translator->new(parser => "MySQL", producer => "XML");
my $datafile = "t/data/mysql/BGEP-RE-create.sql";
my $data;
read(FH, $data, -s $datafile);
close FH;
-print "Data is ", length $data, " bytes\n";
-#print $data;
-my $val = parse($tr, $data);
-print Dumper($val);
+print $tr->translate(\$data);