next unless defined($sql) and length($sql);
push @parts, \@part;
}
- my ($sql, @bind) = $self->_join_parts(' ', @parts);
+ my ($sql, @bind) = $self->join_clauses(' ', @parts);
return (
(our $Render_Top_Level ? $sql : '('.$sql.')'),
@bind
sub _render_values {
my ($self, $values) = @_;
- my ($v_sql, @bind) = $self->_join_parts(
+ my ($v_sql, @bind) = $self->join_clauses(
', ',
map [ $self->render_aqt($_) ],
ref($values) eq 'ARRAY' ? @$values : $values
sub _ext_rw {
my ($self, $name, $key, $value) = @_;
- return $self->{$name}{$key} unless @_ > 2;
+ return $self->{$name}{$key} unless @_ > 3;
$self->{$name}{$key} = $value;
return $self;
}
BEGIN {
foreach my $type (qw(
- expand op_expand render op_renderer clause_expand clause_render
+ expand op_expand render op_render clause_expand clause_render
)) {
my $key = join '_', reverse split '_', $type;
my $singular = "${type}er";