From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 15 Apr 2019 01:41:58 +0000 (+0000)
Subject: move more stuff to method calls
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=555ad787669ba740c771004a6d6c7bc4b879325d;p=scpubgit%2FQ-Branch.git

move more stuff to method calls
---

diff --git a/lib/SQL/Abstract/ExtraClauses.pm b/lib/SQL/Abstract/ExtraClauses.pm
index 5e2e9a1..dc464a6 100644
--- a/lib/SQL/Abstract/ExtraClauses.pm
+++ b/lib/SQL/Abstract/ExtraClauses.pm
@@ -22,11 +22,11 @@ sub register_defaults {
   );
   $self->${\"${_}er"}(from_list => "_${_}_from_list")
     for qw(expand render);
-  $self->{expand}{join} = '_expand_join';
-  $self->{render}{join} = '_render_join';
-  $self->{expand_op}{as} = '_expand_op_as';
-  $self->{expand}{as} = '_expand_op_as';
-  $self->{render}{as} = '_render_as';
+  $self->${\"${_}er"}(join => "_${_}_join")
+    for qw(expand render);
+  $self->op_expander(as => '_expand_op_as');
+  $self->expander(as => '_expand_op_as');
+  $self->renderer(as => '_render_as');
 
   splice(@{$self->{clauses_of}{update}}, 2, 0, 'from');
   splice(@{$self->{clauses_of}{delete}}, 1, 0, 'using');