puke 'Operator calls in update must be in the form { -op => $arg }'
if (@rest or not $op =~ /^\-(.+)/);
- local $self->{_nested_func_lhs} = $k;
- my ($sql, @bind) = $self->_where_unary_op($1, $arg);
+ local our $Cur_Col_Meta = $k;
+ my ($sql, @bind) = $self->_render_expr(
+ $self->_expand_expr_hashpair($op, $arg)
+ );
push @set, "$label = $sql";
push @all_bind, @bind;
unless $low->{-literal};
@{$low->{-literal}}
} else {
- local $self->{_nested_func_lhs} = $left->{-ident}
- if ref($left) eq 'HASH' and $left->{-ident};
- my ($l, $h) = map [ $self->_where_unary_op(%$_) ], $low, $high;
+ my ($l, $h) = map [ $self->_render_expr($_) ], $low, $high;
(join(' ', $l->[0], $self->_sqlcase('and'), $h->[0]),
@{$l}[1..$#$l], @{$h}[1..$#$h])
}
};
- my ($lhsql, @lhbind) = $self->_recurse_where($left);
+ my ($lhsql, @lhbind) = $self->_render_expr($left);
return (
join(' ', '(', $lhsql, $self->_sqlcase($op), $rhsql, ')'),
@lhbind, @rhbind
my ($lhs, $rhs) = @$args;
my @in_bind;
my @in_sql = map {
- local $self->{_nested_func_lhs} = $lhs->{-ident}
- if ref($lhs) eq 'HASH' and $lhs->{-ident};
- my ($sql, @bind) = $self->_where_unary_op(%$_);
+ my ($sql, @bind) = $self->_render_expr($_);
push @in_bind, @bind;
$sql;
} @$rhs;
- my ($lhsql, @lbind) = $self->_recurse_where($lhs);
+ my ($lhsql, @lbind) = $self->_render_expr($lhs);
return (
$lhsql.' '.$self->_sqlcase($op).' ( '
.join(', ', @in_sql)
my @x = @$_;
push @arg_sql, shift @x;
@x
- } map [ $self->_recurse_where($_) ], @args;
+ } map [ $self->_render_expr($_) ], @args;
return ($self->_sqlcase($func).'('.join(', ', @arg_sql).')', @bind);
}