4 use SQL::Abstract::Tree;
6 my $sqlat = SQL::Abstract::Tree->new;
9 my $sql = "SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE 'station'";
12 print $sqlat->format($sql) . "\n";
16 my $sql = "SELECT * FROM (SELECT * FROM foobar) WHERE foo.a =1 and foo.b LIKE 'station'";
19 print $sqlat->format($sql) . "\n";
25 # Color coding (console)