[scpubgit/Q-Branch.git] / script / format-sql

#!/usr/bin/env perl

use SQL::Abstract::Tree;

my $sqlat = SQL::Abstract::Tree->new({ profile => 'console' });

print $sqlat->format($_) . "\n" while <>;