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

   1 package Data::Query::Renderer::SQL::Slice::OffsetFetchNext;
   2
   3 use Moo::Role;
   4
   5 sub _render_slice {
   6   my ($self, $dq) = @_;
   7   [ ($dq->{from} ? $self->_render($dq->{from}) : ()),
   8     (
   9        $dq->{offset} ? (
  10           $self->_format_keyword('OFFSET'),
  11           $self->_render($dq->{offset}),
  12           $self->_format_keyword('ROWS'),
  13        ) : ()
  14     ),
  15     $self->_format_keyword('FETCH NEXT'),
  16     $self->_render($dq->{limit}),
  17     $self->_format_keyword('ROWS ONLY'),
  18   ];
  19 }
  20
  21 1;