[Bast-commits] r9693 - SQL-Abstract/1.x/trunk/lib/SQL/Abstract

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2010-09-07 01:10:06 +0100 (Tue, 07 Sep 2010)
New Revision: 9693

Modified:
   SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm
Log:
from has to stay

Modified: SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm
===================================================================
--- SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm	2010-09-06 23:29:38 UTC (rev 9692)
+++ SQL-Abstract/1.x/trunk/lib/SQL/Abstract/Tree.pm	2010-09-07 00:10:06 UTC (rev 9693)
@@ -27,6 +27,7 @@
   'UPDATE',
   'INSERT \s+ INTO',
   'DELETE \s+ FROM',
+  'FROM',
   'SET',
   '(?:
     (?:
@@ -87,6 +88,7 @@
    update        => 0,
    'insert into' => 0,
    'delete from' => 0,
+   from          => 1,
    where         => 1,
    join          => 1,
    'left join'   => 1,
@@ -152,6 +154,7 @@
 
       where         => [Term::ANSIColor::color('green'), Term::ANSIColor::color('reset')],
       values        => [Term::ANSIColor::color('yellow'), Term::ANSIColor::color('reset')],
+      from          => [Term::ANSIColor::color('yellow'), Term::ANSIColor::color('reset')],
 
       join          => [Term::ANSIColor::color('magenta'), Term::ANSIColor::color('reset')],
       'left join'   => [Term::ANSIColor::color('magenta'), Term::ANSIColor::color('reset')],