9 my $fh = IO::File->new($ARGV[0]);
14 if (/CREATE\s*TABLE/i) {
18 elsif (/^\s*\);\s*$/) {
23 } elsif (/CREATE\s*(UNIQUE\s*)?INDEX/i) {
28 my $trans = SQL::Translator->new(
29 parser => 'SQL::Translator::Parser::PostgreSQL',
30 producer => 'Diagram',
33 show_constraints => 1,
38 $trans->translate(\$file);