package Net::Groonga::Pager;
use strict;
use warnings;
use utf8;
use Mouse;
has offset => (is => 'ro', isa => 'Int', required => 1);
has limit => (is => 'ro', isa => 'Int', required => 1);
has total_entries => (is => 'ro', isa => 'Int', required => 1);
no Mouse;
sub has_next {
my ($self) = @_;
return $self->limit + $self->offset < $self->total_entries;
}
1;
__END__
=head1 NAME
Net::Groonga::Pager - Pager object for Net::Groonga::HTTP
=head1 METHODS
=over 4
=item $pager->offset() :Int
Offset clause for searching.
=item $pager->limit() :Int
Limit clause for searching.
=item $pager->total_entries() :Int
The number of total entries for searching result.
=item $pager->has_next() :Int
Return true if next page is available.
=back
=head1 AUTHOR
Tokuhiro Matsuno