[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 <>;
Commit	Line	Data
2005eba8	1	#!/usr/bin/env perl
	2
	3	use SQL::Abstract::Tree;
	4
	5	my $sqlat = SQL::Abstract::Tree->new({ profile => 'console' });
	6
	7	print $sqlat->format($_) . "\n" while <>;