move format_keyword into base sqla
Matt S Trout [Thu, 18 Apr 2019 01:57:42 +0000 (01:57 +0000)]
lib/SQL/Abstract.pm
lib/SQL/Abstract/ExtraClauses.pm

index 7556495..1b7b3d3 100644 (file)
@@ -1468,6 +1468,7 @@ sub _sqlcase {
   return $_[0]->{case} ? $_[1] : uc($_[1]);
 }
 
+sub format_keyword { $_[0]->_sqlcase(join ' ', split '_', $_[1]) }
 
 #======================================================================
 # DISPATCHING FROM REFKIND
index 0ab5a9c..6cfdc0f 100644 (file)
@@ -159,8 +159,6 @@ sub register_defaults {
   return $self;
 }
 
-sub format_keyword { $_[0]->_sqlcase(join ' ', split '_', $_[1]) }
-
 sub _expand_select_clause_from {
   my ($self, undef, $from) = @_;
   +(from => $self->_expand_from_list(undef, $from));