Commit | Line | Data |
---|---|---|
3482f7c8 | 1 | package Data::Query::Renderer::SQL::Slice::Top; |
2 | ||
3482f7c8 | 3 | use Moo::Role; |
4 | ||
5 | with 'Data::Query::Renderer::SQL::Slice::FetchFirst'; | |
6 | ||
7 | sub _render_slice_limit { | |
8 | my ($self, $dq) = @_; | |
9 | my $basic = $self->_render($dq->{from}); | |
10 | return [ | |
11 | $basic->[0], | |
12 | $self->_format_keyword('TOP'), | |
13 | sprintf("%i", $dq->{limit}{value}), | |
14 | @{$basic}[1..$#$basic] | |
15 | ]; | |
16 | } | |
17 | ||
18 | sub _slice_type { 'Top' } | |
19 | ||
20 | 1; |