initial formatting script

[dbsrgits/SQL-Abstract.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 <>;