Port more of the back-compat tests

[dbsrgits/SQL-Abstract-2.0-ish.git] / lib / SQL / Abstract / Compat.pm

diff --git a/lib/SQL/Abstract/Compat.pm b/lib/SQL/Abstract/Compat.pm
index 2fd21c6..e2d02b0 100644 (file)
--- a/lib/SQL/Abstract/Compat.pm
+++ b/lib/SQL/Abstract/Compat.pm
@@ -15,7 +15,8 @@ class SQL::Abstract::Compat {
   has logic => (
     is => 'rw',
     isa => LogicEnum,
-    default => 'AND'
+    default => 'AND',
+    coerce => 1
   );
 
   has visitor => (
@@ -33,7 +34,6 @@ class SQL::Abstract::Compat {
   {
 
     my $ast = $self->_new_compat_ast->select($from,$fields,$where,$order);
-    pp($ast);
 
     return ($self->visitor->dispatch($ast), $self->visitor->binds);
   }