my $sql = '';
if ($arg->{group_by}) {
- # horrible, waiting for refactor
+ # horrible horrible, waiting for refactor
local $self->{select_bind};
if (my $g = $self->_recurse_fields($arg->{group_by}) ) {
$sql .= $self->_sqlcase(' group by ') . $g;
for ($lhs, $rhs) {
$$_->[0] = "( $$_->[0] )"
- unless $$_->[0] =~ /^ \s* \( .* \) \s* ^/xs;
+ unless $$_->[0] =~ /^ \s* \( .* \) \s* $/xs;
}
\[ join( ' IN ', shift @$$lhs, shift @$$rhs ), @$$lhs, @$$rhs ];