From: Matt Phillips <mattp@cpan.org>
Date: Fri, 17 Aug 2012 20:32:06 +0000 (-0400)
Subject: Pass subtype to Literal() helper directly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ed3c560a5ef85f8ab028b33137023674bc187e5;p=dbsrgits%2FSQL-Abstract.git

Pass subtype to Literal() helper directly
---

diff --git a/lib/SQL/Abstract/Converter.pm b/lib/SQL/Abstract/Converter.pm
index 9a48eb4..4890ee0 100644
--- a/lib/SQL/Abstract/Converter.pm
+++ b/lib/SQL/Abstract/Converter.pm
@@ -62,10 +62,7 @@ sub _literal_to_dq {
   my ($self, $literal) = @_;
   my @bind;
   ($literal, @bind) = @$literal if ref($literal) eq 'ARRAY';
-  +{
-    subtype => 'SQL',
-    %{ Literal($literal, [ $self->_bind_to_dq(@bind) ]) }
-  };
+  Literal('SQL', $literal, [ $self->_bind_to_dq(@bind) ]);
 }
 
 sub _bind_to_dq {
@@ -427,10 +424,7 @@ sub _where_hashpair_to_dq {
         map +{ $k => $_ }, @$v
       ], $logic);
     } elsif (ref($v) eq 'SCALAR' or (ref($v) eq 'REF' and ref($$v) eq 'ARRAY')) {
-      return +{
-        subtype => 'SQL',
-        %{ Literal([ $self->_ident_to_dq($k), $self->_literal_to_dq($$v) ]) },
-      };
+      return Literal('SQL', [ $self->_ident_to_dq($k), $self->_literal_to_dq($$v) ]);
     }
     my ($op, $rhs) = do {
       if (ref($v) eq 'HASH') {