rename node_types to render
Matt S Trout [Tue, 5 Mar 2019 02:28:23 +0000 (02:28 +0000)]
lib/SQL/Abstract.pm

index e339b22..de4e131 100644 (file)
@@ -184,9 +184,9 @@ sub new {
     ^ \s* go \s
   /xmi;
 
-  $opt{node_types} = +{
-    map +("-$_" => '_render_'.$_),
-      qw(op func bind ident literal list)
+  $opt{render} = {
+    (map +("-$_", "_render_$_"), qw(op func bind ident literal list)),
+    %{$opt{render}||{}}
   };
 
   $opt{expand_unary} = {};
@@ -512,7 +512,7 @@ sub render_aqt {
   my ($self, $aqt) = @_;
   my ($k, $v, @rest) = %$aqt;
   die "No" if @rest;
-  if (my $meth = $self->{node_types}{$k}) {
+  if (my $meth = $self->{render}{$k}) {
     return $self->$meth($v);
   }
   die "notreached: $k";
@@ -659,7 +659,7 @@ sub _expand_expr_hashpair {
     if (my $custom = $self->{expand_unary}{$k}) {
       return $self->$custom($v);
     }
-    if ($self->{node_types}{$k}) {
+    if ($self->{render}{$k}) {
       return { $k => $v };
     }
     if (