switch literal FROM clause generation
Matt S Trout [Sat, 16 Jul 2011 23:55:03 +0000 (23:55 +0000)]
lib/SQL/Abstract.pm

index c8563e0..a54dac3 100644 (file)
@@ -10,7 +10,9 @@ use warnings;
 use Carp ();
 use List::Util ();
 use Scalar::Util ();
-use Data::Query::Constants qw(DQ_IDENTIFIER DQ_OPERATOR DQ_VALUE);
+use Data::Query::Constants qw(
+  DQ_IDENTIFIER DQ_OPERATOR DQ_VALUE DQ_LITERAL
+);
 
 #======================================================================
 # GLOBALS
@@ -1220,7 +1222,13 @@ sub _table  {
         elements => [ split /\Q$self->{name_sep}/, $from ],
       })
     },
-    SCALARREF    => sub {$$from},
+    SCALARREF    => sub {
+      $self->_render_dq({
+        type => DQ_LITERAL,
+        subtype => 'SQL',
+        literal => $$from
+      })
+    },
   });
 }