From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sat, 14 Apr 2012 18:03:32 +0000 (+0000)
Subject: simplify and generalize table literal handling
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b1c878956a0f484b4671588406d5f88f8c8a2c3;p=dbsrgits%2FSQL-Abstract.git

simplify and generalize table literal handling
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index aca4315..d622f39 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -772,12 +772,8 @@ sub _table_to_dq {
       };
     }
     $dq;
-  } elsif (ref($from) eq 'SCALAR') {
-    +{
-      type => DQ_LITERAL,
-      subtype => 'SQL',
-      literal => $$from
-    }
+  } elsif (ref($from) eq 'SCALAR' or (ref($from) eq 'REF')) {
+    $self->_literal_to_dq($$from);
   } else {
     $self->_ident_to_dq($from);
   }