1 package Data::Query::Renderer::SQL::Slice::SubqueryRemap;
3 use Data::Query::ExprHelpers;
6 sub _subquery_remap_select {
7 my ($self, $orig_select) = @_;
10 my $default_inside_alias;
12 my @inside_select_list = map {
15 } elsif (is_Identifier) {
16 my @el = @{$_->{elements}};
17 if (@el == 2 and $el[0] eq ($default_inside_alias ||= $el[0])) {
20 Alias(join('__', @el), $_);
23 Alias(sprintf("GENSYM__%03i",++$gensym_count), $_);
25 } @{$orig_select->{select}};
27 my @outside_select_list = map {
33 } @inside_select_list;
36 inside_select_list => \@inside_select_list,
37 outside_select_list => \@outside_select_list,
38 default_inside_alias => $default_inside_alias||'me',
43 my ($self, $orig_select) = @_;
46 my %select_remap = $self->_subquery_remap_select($orig_select);
48 my $default_inside_alias = $select_remap{default_inside_alias};
49 my @inside_select_list = @{$select_remap{inside_select_list}};
50 my @outside_select_list = @{$select_remap{outside_select_list}};
53 if (is_Alias and is_Identifier $_->{from}) {
55 join('.',@{$_->{from}{elements}}) => Identifier($_->{to}),
56 $_->{from}{elements}[-1] => Identifier($_->{to}),
58 } elsif (is_Identifier) {
60 join('.',@{$_->{elements}}) => $_,
61 $_->{elements}[-1] => $_,
66 } @inside_select_list;
70 my $order = $orig_select->{from};
71 while (is_Order $order) {
72 push @inside_order, $order;
73 $order = $order->{from};
78 my $order_gensym_count;
79 my @outside_order = map {
81 if (is_Identifier $by) {
82 $default_inside_alias ||= $by->{elements}[0]
83 if @{$by->{elements}} == 2;
85 = $alias_map{join('.', @{$by->{elements}})}
88 @{$by->{elements}} == 2
89 and $by->{elements}[0] eq $default_inside_alias
91 push @inside_select_list, $by;
94 my $name = sprintf("ORDER__BY__%03i",++$order_gensym_count);
95 push @inside_select_list, Alias($name, $by);
99 Order($mapped_by, $_->{reverse}, $_->{nulls});
101 my $name = sprintf("ORDER__BY__%03i",++$order_gensym_count);
102 push @inside_select_list, Alias($name, $by);
103 Order(Identifier($name), $_->{reverse}, $_->{nulls});
107 $default_inside_alias ||= 'me';
110 inside_select_list => \@inside_select_list,
111 outside_select_list => \@outside_select_list,
112 inside_order => \@inside_order,
113 outside_order => \@outside_order,
114 default_inside_alias => $default_inside_alias,
115 inner_body => $inner_body,