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::unparse(SQL::Abstract::Tree::parse($sql)) . "\n";
16 FROM (SELECT * FROM foobar) WHERE foo.a =1 and foo.b LIKE 'station'";
19 print SQL::Abstract::Tree::unparse(SQL::Abstract::Tree::parse($sql)) . "\n";
25 # Color coding (console)