# GLOBALS
#======================================================================
-our $VERSION = '1.87';
+our $VERSION = '1.90_01';
# This would confuse some packagers
$VERSION = eval $VERSION if $VERSION =~ /_/; # numify for warning-free dev releases
s/\A\s+//, s/\s+\Z// for $sql;
return [ $sql, @bind ];
};
- $opt{expand_op}{ident} = sub {
+ $opt{expand_op}{ident} = __PACKAGE__->make_unop_expander(sub {
my ($self, undef, $body) = @_;
$body = $body->from if Scalar::Util::blessed($body);
$self->_expand_ident(ident => $body);
- };
+ });
}
}
sub _expand_list {
my ($self, undef, $expr) = @_;
return { -op => [
- ',', map $self->expand_expr($_),
+ ',', map $self->expand_expr($_),
@{$expr->{-op}}[1..$#{$expr->{-op}}]
] } if ref($expr) eq 'HASH' and ($expr->{-op}||[''])->[0] eq ',';
return +{ -op => [ ',',