Commit | Line | Data |
---|---|---|
d49e5323 | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use SQL::Abstract::Tree; | |
5 | ||
d695b0ad | 6 | my $sqlat = SQL::Abstract::Tree->new; |
7 | ||
d49e5323 | 8 | { |
d695b0ad | 9 | my $sql = "SELECT a, b, c FROM foo WHERE foo.a =1 and foo.b LIKE 'station'"; |
d49e5323 | 10 | |
11 | print "$sql\n"; | |
d695b0ad | 12 | print $sqlat->format($sql) . "\n"; |
d49e5323 | 13 | } |
14 | ||
15 | { | |
d695b0ad | 16 | my $sql = "SELECT * FROM (SELECT * FROM foobar) WHERE foo.a =1 and foo.b LIKE 'station'"; |
d49e5323 | 17 | |
18 | print "$sql\n"; | |
d695b0ad | 19 | print $sqlat->format($sql) . "\n"; |
d49e5323 | 20 | } |
21 | ||
a24cc3a0 | 22 | { |
23 | my $sql = "SELECT * FROM lolz WHERE ( foo.a =1 ) and foo.b LIKE 'station'"; | |
24 | ||
25 | print "$sql\n"; | |
26 | print $sqlat->format($sql) . "\n"; | |
27 | } | |
28 | ||
d49e5323 | 29 | # stuff we want: |
30 | # Nested indentation | |
31 | # Max Width | |
32 | # Color coding (console) | |
33 | # Color coding (html) |