1 package Data::Query::Renderer::SQL::MySQL;
3 sub map_descending (&;@) {
6 $_ = $block->($_) if ref($_) eq 'HASH';
7 if (ref($_) eq 'REF' and ref($$_) eq 'HASH') {
9 } elsif (ref($_) eq 'HASH') {
12 +{ map +($_ => &map_descending($block, $mapped->{$_})), keys %$mapped };
13 } elsif (ref($_) eq 'ARRAY') {
14 [ map &map_descending($block, $_), @$_ ]
20 use Data::Query::Constants;
21 use Data::Query::ExprHelpers;
24 extends 'Data::Query::Renderer::SQL::Naive';
26 with 'Data::Query::Renderer::SQL::Slice::LimitXY';
28 sub _insert_default_values {
30 $self->_format_keyword('VALUES'), qw( ( ) );
33 foreach my $type (qw(update delete)) {
34 around "_render_${type}" => sub {
35 my ($orig, $self) = (shift, shift);
36 $self->$orig($self->_maybe_double_subquery(@_));
40 sub _maybe_double_subquery {
42 my $target = $dq->{target};
44 foreach my $key (qw(set where)) {
45 next unless $dq->{$key};
46 $new->{$key} = map_descending {
50 if (is_Identifier($target)) {
51 my $ident = $target->{elements}[0];
52 +{ DQ_IDENTIFIER ,=> sub {
53 my @el = @{$_[0]->{elements}};
54 $found = 1 if @el == 1 and $el[0] eq $ident;
57 } elsif (is_Literal($target)) {
58 my $ident = $target->{literal} or die "Can't handle complex literal";
59 +{ DQ_LITERAL ,=> sub {
60 my $lit = $_[0]->{literal};
61 $found = 1 if $lit and $lit eq $ident;
65 die "Can't handle target type ".$target->{type};
69 \Select([ Identifier('*') ], Alias('_forced_double_subquery', $_));