5 #BEGIN { print "0..0\n"; }
10 use SQL::Translator::Parser::MySQL;
11 use SQL::Translator::Producer::XML;
13 $SQL::Translator::DEBUG = 0;
15 my $tr = SQL::Translator->new(parser => "MySQL", producer => "XML");
17 my $datafile = "t/data/mysql/BGEP-RE-create.sql";
19 open FH, $datafile or die "Can't open $datafile: $!";
20 read(FH, $data, -s $datafile);
24 print $tr->translate(\$data);