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: v2.000000~3^2~95
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ced7484c5bc01855f3771a835bef84e0448a25d6;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 271c485..a926d0c 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($_)