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