From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 27 Mar 2019 04:27:49 +0000 (+0000)
Subject: rename list node type to tuple
X-Git-Tag: v1.90_01~285
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=88af4c2ee3082849a92b0a2295e2c4bf9631a0c5;p=dbsrgits%2FSQL-Abstract.git

rename list node type to tuple
---

diff --git a/lib/SQL/Abstract.pm b/lib/SQL/Abstract.pm
index 6f71756..ea7af7b 100644
--- a/lib/SQL/Abstract.pm
+++ b/lib/SQL/Abstract.pm
@@ -204,7 +204,7 @@ sub new {
     -bind => sub { shift; +{ @_ } },
     -in => '_expand_in',
     -not_in => '_expand_in',
-    -list => sub {
+    -tuple => sub {
       my ($self, $node, $args) = @_;
       +{ $node => [ map $self->expand_expr($_), @$args ] };
     },
@@ -236,7 +236,7 @@ sub new {
   }
 
   $opt{render} = {
-    (map +("-$_", "_render_$_"), qw(op func bind ident literal list)),
+    (map +("-$_", "_render_$_"), qw(op func bind ident literal tuple)),
     %{$opt{render}||{}}
   };
 
@@ -1001,7 +1001,6 @@ sub _expand_between {
 sub _expand_in {
   my ($self, $raw, $vv, $k) = @_;
   $k = shift @{$vv = [ @$vv ]} unless defined $k;
-  local our $Cur_Col_Meta = $k;
   my $op = $self->_normalize_op($raw);
   if (my $literal = is_literal_value($vv)) {
     my ($sql, @bind) = @$literal;
@@ -1076,9 +1075,9 @@ sub _render_ident {
   return $self->_convert($self->_quote($ident));
 }
 
-sub _render_list {
-  my ($self, $list) = @_;
-  my ($sql, @bind) = $self->_render_op([ ',', @$list ]);
+sub _render_tuple {
+  my ($self, $values) = @_;
+  my ($sql, @bind) = $self->_render_op([ ',', @$values ]);
   return "($sql)", @bind;  
 }