lib/Data/Query/Renderer/SQL/Slice/Top.pm

   1 package Data::Query::Renderer::SQL::Slice::Top;
   2
   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;