package Data::Query::Renderer::SQL::MySQL;
-sub map_descending (&;@) {
- my ($block, $in) = @_;
- local $_ = $in;
- $_ = $block->($_) if ref($_) eq 'HASH';
- if (ref($_) eq 'REF' and ref($$_) eq 'HASH') {
- $$_;
- } elsif (ref($_) eq 'HASH') {
- my $mapped = $_;
- local $_;
- +{ map +($_ => &map_descending($block, $mapped->{$_})), keys %$mapped };
- } elsif (ref($_) eq 'ARRAY') {
- [ map &map_descending($block, $_), @$_ ]
- } else {
- $_
- }
-}
-
use Data::Query::Constants;
use Data::Query::ExprHelpers;
use Moo;
my $new = { %$dq };
foreach my $key (qw(set where)) {
next unless $dq->{$key};
- $new->{$key} = map_descending {
+ $new->{$key} = map_dq_tree {
if (is_Select) {
my $found;
scan_dq_nodes(do {