[Bast-commits] r9245 - SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2010-04-27 21:54:10 +0100 (Tue, 27 Apr 2010)
New Revision: 9245

Modified:
   SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
Log:
fixed more moosification

Modified: SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
===================================================================
--- SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-04-27 20:52:34 UTC (rev 9244)
+++ SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-04-27 20:54:10 UTC (rev 9245)
@@ -95,10 +95,11 @@
 );
 
 sub _build_binary_op_keyworkds {
+	my $self = shift;
     return (
         map {
-            ' ^ ' . quotemeta($_) . "(?= \$ | $stuff_around_mathops ) ",
-              " (?<= $stuff_around_mathops)" . quotemeta($_) . "(?= \$ | $stuff_around_mathops ) ",
+            ' ^ ' . quotemeta($_) . "(?= \$ | $self->stuff_around_mathops ) ",
+              " (?<= $self->stuff_around_mathops)" . quotemeta($_) . "(?= \$ | $self->stuff_around_mathops ) ",
           } (qw/< > != <> = <= >=/)
       ),
       (