From: Matt S Trout Date: Mon, 15 Apr 2019 01:45:26 +0000 (+0000) Subject: further APIfication X-Git-Tag: v1.90_01~211 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6227174a2da16e74d31f5067fbbb6e83e683a05;p=dbsrgits%2FSQL-Abstract.git further APIfication --- diff --git a/lib/SQL/Abstract/ExtraClauses.pm b/lib/SQL/Abstract/ExtraClauses.pm index dc464a6..c46a632 100644 --- a/lib/SQL/Abstract/ExtraClauses.pm +++ b/lib/SQL/Abstract/ExtraClauses.pm @@ -20,10 +20,10 @@ sub register_defaults { }, 'select.having', 'expand_expr', ); - $self->${\"${_}er"}(from_list => "_${_}_from_list") - for qw(expand render); - $self->${\"${_}er"}(join => "_${_}_join") - for qw(expand render); + foreach my $thing (qw(join from_list)) { + $self->expander($thing => "_expand_${thing}") + ->renderer($thing => "_render_${thing}") + } $self->op_expander(as => '_expand_op_as'); $self->expander(as => '_expand_op_as'); $self->renderer(as => '_render_as');