1 package Data::Query::Renderer::SQL::Slice::SubqueryRemap;
3 use Data::Query::ExprHelpers;
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}};
28 if (is_Alias and is_Identifier $_->{from}) {
29 +(join('.',@{$_->{from}{elements}}) => Identifier($_->{to}))
30 } elsif (is_Identifier) {
31 +(join('.',@{$_->{elements}}) => $_)
35 } @inside_select_list;
37 my @outside_select_list = map {
43 } @inside_select_list;
47 my $order = $orig_select->{from};
48 while (is_Order $order) {
49 push @inside_order, $order;
50 $order = $order->{from};
55 my $order_gensym_count;
56 my @outside_order = map {
58 if (is_Identifier $by) {
59 $default_inside_alias ||= $by->{elements}[0]
60 if @{$by->{elements}} == 2;
62 = $alias_map{join('.', @{$by->{elements}})}
65 @{$by->{elements}} == 2
66 and $by->{elements}[0] eq $default_inside_alias
68 push @inside_select_list, $by;
71 my $name = sprintf("ORDER__BY__%03i",++$order_gensym_count);
72 push @inside_select_list, Alias($name, $by);
76 Order($mapped_by, $_->{reverse});
78 die "XXX not implemented yet";
82 $default_inside_alias ||= 'me';
85 inside_select_list => \@inside_select_list,
86 outside_select_list => \@outside_select_list,
87 inside_order => \@inside_order,
88 outside_order => \@outside_order,
89 default_inside_alias => $default_inside_alias,
90 inner_body => $inner_body,