From: Matt S Trout <mst@shadowcat.co.uk>
Date: Sun, 29 Sep 2019 01:36:50 +0000 (+0000)
Subject: turn join into an aqt expr so it can be a keyword
X-Git-Tag: v1.90_01~74
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a639287d1ae82a3b58a75fa2193c900a0ab012ae;p=dbsrgits%2FSQL-Abstract.git

turn join into an aqt expr so it can be a keyword
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 71d6204..3f62403 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1521,7 +1521,7 @@ sub _render_op_multop {
   return $self->render_aqt($parts[0]) if @parts == 1;
   my $join = ($op eq ','
                 ? ', '
-                : $self->_sqlcase(' '.(join ' ', split '_', $op).' ')
+                : { -keyword => ' '.join(' ', split '_', $op).' ' }
              );
   return $self->join_query_parts($join, @parts);
 }
@@ -1541,6 +1541,9 @@ sub _render_values {
 
 sub join_query_parts {
   my ($self, $join, @parts) = @_;
+  if (ref($join) eq 'HASH') {
+    $join = $self->render_aqt($join)->[0];
+  }
   my @final = map +(
     ref($_) eq 'HASH'
       ? $self->render_aqt($_)