1 package Data::Query::Renderer::SQL::Slice::RowNumberOver;
3 use Data::Query::Constants;
4 use Data::Query::ExprHelpers;
7 with 'Data::Query::Renderer::SQL::Slice::SubqueryRemap';
11 die "Slice's inner is not a Select"
12 unless (my $orig_select = $dq->{from})->{type} eq DQ_SELECT;
14 my %remapped = $self->_subquery_remap($orig_select);
16 my @inside_select_list = @{$remapped{inside_select_list}};
17 my @outside_select_list = @{$remapped{outside_select_list}};
18 my @inside_order = @{$remapped{inside_order}};
19 my @outside_order = @{$remapped{outside_order}};
20 my $default_inside_alias = $remapped{default_inside_alias};
21 my $inner_body = $remapped{inner_body};
23 my $rno_name = 'rno__row__index';
25 my $order = compose { Order($b->{by}, $b->{reverse}, $a) }
26 @outside_order, undef;
28 my $rno_node = Alias($rno_name, $self->_rno_literal($order));
30 my $limit_plus_offset = +{
31 %{$dq->{limit}}, value => ($dq->{limit}{value}||0) + ($dq->{offset}{value}||0)
35 %{$dq->{limit}}, value => ($dq->{offset}{value}||0)+1
38 return $self->_render(
40 \@outside_select_list,
43 { 'SQL.Naive' => 'AND' },
46 { 'SQL.Naive' => '>=' },
47 [ Identifier($rno_name), $offset_plus ],
50 { 'SQL.Naive' => '<=' },
51 [ Identifier($rno_name), $limit_plus_offset ],
56 $default_inside_alias,
58 [ @outside_select_list, $rno_node ],
60 $default_inside_alias,
74 my ($self, $order) = @_;
75 my ($order_str, @order_bind) = (
77 ? @{$self->render($order)}
83 literal => "ROW_NUMBER() OVER( $order_str )",
84 values => \@order_bind