Commit | Line | Data |
35bab742 |
1 | #!/usr/bin/perl |
2 | # vim: set ft=perl: |
3 | # |
4 | |
8c1f4165 |
5 | #BEGIN { print "0..0\n"; } |
6 | |
35bab742 |
7 | use strict; |
8 | use Data::Dumper; |
9 | use SQL::Translator; |
8c1f4165 |
10 | use SQL::Translator::Parser::MySQL; |
11 | use SQL::Translator::Producer::XML; |
35bab742 |
12 | |
13 | $SQL::Translator::DEBUG = 0; |
14 | |
8c1f4165 |
15 | my $tr = SQL::Translator->new(parser => "MySQL", producer => "XML"); |
35bab742 |
16 | |
17 | my $datafile = "t/data/mysql/BGEP-RE-create.sql"; |
18 | my $data; |
19 | open FH, $datafile or die "Can't open $datafile: $!"; |
20 | read(FH, $data, -s $datafile); |
21 | close FH; |
22 | |
35bab742 |
23 | |
8c1f4165 |
24 | print $tr->translate(\$data); |