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

[dhoss at dev.catalyst.perl.org]

Author: dhoss
Date: 2010-04-27 21:51:17 +0100 (Tue, 27 Apr 2010)
New Revision: 9243

Modified:
   SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm
Log:
correct moosyness from ripped out code

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:49:11 UTC (rev 9242)
+++ SQL-Abstract/1.x/branches/sqla-tree/lib/SQL/Abstract/Tree.pm	2010-04-27 20:51:17 UTC (rev 9243)
@@ -326,7 +326,7 @@
 }
 
 sub unparse {
-  my $tree = shift;
+  my ($self, $tree) = shift;
 
   if (not $tree ) {
     return '';
@@ -349,7 +349,9 @@
 }
 
 ## DO THE DAMN THANG
-sub pretty { }
+sub pretty {
+	my $self = shift;
+}
 
 __PACKAGE__->meta->make_immutable;
 1;