From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 15 Apr 2019 00:43:46 +0000 (+0000)
Subject: clean up from_list
X-Git-Tag: v2.000000~3^2~236
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9e35873238c9ff77659fb7d4853a51d591db24e;p=dbsrgits%2FSQL-Abstract.git

clean up from_list
---

diff --git a/lib/SQL/Abstract/ExtraClauses.pm b/lib/SQL/Abstract/ExtraClauses.pm
index 9436b13..1007e4a 100644
--- a/lib/SQL/Abstract/ExtraClauses.pm
+++ b/lib/SQL/Abstract/ExtraClauses.pm
@@ -20,8 +20,8 @@ sub register_defaults {
   $self->clause_expander('select.having', sub {
     $_[0]->expand_expr($_[1])
   });
-  $self->{expand}{from_list} = '_expand_from_list';
-  $self->{render}{from_list} = '_render_from_list';
+  $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';
@@ -53,7 +53,7 @@ sub _expand_from_list {
     return { -from_list => [ $self->expand_expr($args) ] };
   }
   my @list;
-  my @args = ref($args) ? @$args : ($args);
+  my @args = ref($args) eq 'ARRAY' ? @$args : ($args);
   while (my $entry = shift @args) {
     if (!ref($entry) and $entry =~ /^-(.*)/) {
       if ($1 eq 'as') {