1 package Data::Query::Renderer::SQL::Slice::RowNum;
3 use Data::Query::ExprHelpers;
6 with 'Data::Query::Renderer::SQL::Slice::SubqueryRemap';
10 die "Slice's inner is not a Select"
11 unless is_Select my $orig_select = $dq->{from};
12 my %remapped = $self->_subquery_remap_select($orig_select);
13 my $inside_select = Alias(
14 $remapped{default_inside_alias},
15 Select($remapped{inside_select_list}, $orig_select->{from}),
17 unless ($dq->{offset}) {
20 $remapped{outside_select_list},
23 { 'SQL.Naive' => '<=' },
25 Literal(SQL => 'ROWNUM'),
34 my ($limit_plus_offset, $offset_plus) = (
35 { %{$dq->{limit}}, value => $dq->{limit}{value}+$dq->{offset}{value} },
36 { %{$dq->{limit}}, value => $dq->{offset}{value}+1 }
39 my $rownum_name = 'rownum__index';
41 if ($dq->{order_is_stable}) {
44 $remapped{outside_select_list},
47 { 'SQL.Naive' => '>=' },
48 [ Identifier($rownum_name), $offset_plus ]
51 $remapped{default_inside_alias},
53 [ @{$remapped{outside_select_list}},
54 Alias($rownum_name, Literal(SQL => 'ROWNUM')) ],
57 { 'SQL.Naive' => '<=' },
58 [ Literal(SQL => 'ROWNUM'), $limit_plus_offset ]
70 $remapped{outside_select_list},
73 { 'SQL.Naive' => 'BETWEEN' },
74 [ Identifier($rownum_name), $offset_plus, $limit_plus_offset ]
77 $remapped{default_inside_alias},
79 [ @{$remapped{outside_select_list}},
80 Alias($rownum_name, Literal(SQL => 'ROWNUM')) ],