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

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2010-06-01 23:35:15 +0100 (Tue, 01 Jun 2010)
New Revision: 9530

Modified:
   SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
Log:
removed a whole bunch of debug stuff from Tree

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-06-01 22:31:03 UTC (rev 9529)
+++ SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-06-01 22:35:15 UTC (rev 9530)
@@ -95,11 +95,9 @@
     # tokenize string, and remove all optional whitespace
     my $tokens = [];
     my $re     = $tokenizer_re;
-    warn "Tokenizer re:" . Dumper $re;
     foreach my $token ( split $re, $s ) {
         push @$tokens, $token if ( length $token ) && ( $token =~ /\S/ );
     }
-    warn "Tokens from parse: " . Dumper $tokens;
     my $tree = $self->_recurse_parse( $tokens, PARSE_TOP_LEVEL );
     return $tree;
 }
@@ -111,9 +109,7 @@
     my @expr = @expression_terminator_sql_keywords;
     my @binops = @binary_op_keywords;
     while (1) {    # left-associative parsing
-        warn "Tokens: " . Dumper $tokens;
         my $lookahead = $tokens->[0];
-        warn "Lookahead: $lookahead";
         if (
 	        not defined($lookahead)
             or ( $state == PARSE_IN_PARENS && $lookahead eq ')' )
@@ -128,10 +124,8 @@
             )
           )
         {
-            warn "Got to return left";
             return $left;
         }
-        warn "shifting tokens: " . Dumper @$tokens;
         my $token = shift @$tokens;
 
         # nested expression in ()