From: Matt S Trout <mst@shadowcat.co.uk>
Date: Thu, 18 Apr 2019 01:57:42 +0000 (+0000)
Subject: move format_keyword into base sqla
X-Git-Tag: v1.90_01~185
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=eaba09fc57316874586e26226a547d943327c955;p=dbsrgits%2FSQL-Abstract.git

move format_keyword into base sqla
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 61aad52..6e3327b 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -1468,6 +1468,7 @@ sub _sqlcase {
   return $_[0]->{case} ? $_[1] : uc($_[1]);
 }
 
+sub format_keyword { $_[0]->_sqlcase(join ' ', split '_', $_[1]) }
 
 #======================================================================
 # DISPATCHING FROM REFKIND
diff --git a/lib/SQL/Abstract/ExtraClauses.pm b/lib/SQL/Abstract/ExtraClauses.pm
index 0ab5a9c..6cfdc0f 100644
--- a/lib/SQL/Abstract/ExtraClauses.pm
+++ b/lib/SQL/Abstract/ExtraClauses.pm
@@ -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));