first keyword move

[dbsrgits/SQL-Abstract.git] / lib / SQL / Abstract.pm

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 61aad52..ad6a9a8 100644 (file)
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1152,7 +1152,7 @@ sub _render_op_between {
   return $self->join_query_parts(' ',
     [ '(' ],
     $left,
-    [ $self->_sqlcase(join ' ', split '_', $op) ],
+    [ $self->format_keyword($op) ],
     @rh,
     [ ')' ],
   );
@@ -1468,6 +1468,7 @@ sub _sqlcase {
   return $_[0]->{case} ? $_[1] : uc($_[1]);
 }
 
+sub format_keyword { $_[0]->_sqlcase(join ' ', split '_', $_[1]) }
 
 #======================================================================
 # DISPATCHING FROM REFKIND