[dbsrgits/Data-Query.git] / lib / Data / Query / Renderer / SQL / Slice / Top.pm

package Data::Query::Renderer::SQL::Slice::Top;

use Moo::Role;

with 'Data::Query::Renderer::SQL::Slice::FetchFirst';

sub _render_slice_limit {
  my ($self, $dq) = @_;
  my $basic = $self->_render($dq->{from});
  return [
    $basic->[0],
    $self->_format_keyword('TOP'),
    sprintf("%i", $dq->{limit}{value}),
    @{$basic}[1..$#$basic]
  ];
}

sub _slice_type { 'Top' }

1;
Commit	Line	Data
3482f7c8	1	package Data::Query::Renderer::SQL::Slice::Top;
3482f7c8	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;