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';
10 (limit => 1, offset => 1);
13 sub slice_stability { }
17 die "Slice's inner is not a Select"
18 unless (my $orig_select = $dq->{from})->{type} eq DQ_SELECT;
20 my %remapped = $self->_subquery_remap($orig_select);
22 my @inside_select_list = @{$remapped{inside_select_list}};
23 my @outside_select_list = @{$remapped{outside_select_list}};
24 my @inside_order = @{$remapped{inside_order}};
25 my @outside_order = @{$remapped{outside_order}};
26 my $default_inside_alias = $remapped{default_inside_alias};
27 my $inner_body = $remapped{inner_body};
29 my $rno_name = 'rno__row__index';
31 my $order = compose { Order($b->{by}, $b->{reverse}, $b->{nulls}, $a) }
32 @outside_order, undef;
34 my $rno_node = Alias($rno_name, $self->_rno_literal($order));
36 my $limit_plus_offset = +{
37 %{$dq->{limit}}, value => ($dq->{limit}{value}||0) + ($dq->{offset}{value}||0)
41 %{$dq->{limit}}, value => ($dq->{offset}{value}||0)+1
44 return $self->_render(
46 \@outside_select_list,
49 { 'SQL.Naive' => 'AND' },
52 { 'SQL.Naive' => '>=' },
53 [ Identifier($rno_name), $offset_plus ],
56 { 'SQL.Naive' => '<=' },
57 [ Identifier($rno_name), $limit_plus_offset ],
62 $default_inside_alias,
64 [ @outside_select_list, $rno_node ],
66 $default_inside_alias,
80 my ($self, $order) = @_;
81 my ($order_str, @order_bind) = (
83 ? @{$self->render($order)}
89 literal => "ROW_NUMBER() OVER( $order_str )",
90 values => \@order_bind