From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 30 Sep 2019 01:10:13 +0000 (+0000)
Subject: fixup keyword rendering
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3921487a16c552c021260afadba59f884fd438ef;p=scpubgit%2FQ-Branch.git

fixup keyword rendering
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 503ac9c..720f378 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1433,7 +1433,9 @@ sub _render_literal {
 
 sub _render_keyword {
   my ($self, undef, $keyword) = @_;
-  return [ $self->_sqlcase(join ' ', split '_', $keyword) ];
+  return [ $self->_sqlcase(
+    ref($keyword) ? $$keyword : join ' ', split '_', $keyword
+  ) ];
 }
 
 sub _render_op {
@@ -1567,7 +1569,7 @@ sub _render_unop_paren {
 sub _render_unop_prefix {
   my ($self, $op, $v) = @_;
   return $self->join_query_parts(' ',
-    $self->_sqlcase($op), $v->[0]
+    { -keyword => \$op }, $v->[0]
   );
 }