File Coverage

blib/lib/Net/Groonga/Pager.pm
Criterion Covered Total %
statement 15 17 88.2
branch n/a
condition n/a
subroutine 5 6 83.3
pod 1 1 100.0
total 21 24 87.5


line stmt bran cond sub pod time code
1             package Net::Groonga::Pager;
2 1     1   5 use strict;
  1         1  
  1         34  
3 1     1   4 use warnings;
  1         1  
  1         42  
4 1     1   5 use utf8;
  1         3  
  1         7  
5              
6 1     1   749 use Mouse;
  1         38131  
  1         7  
7              
8             has offset => (is => 'ro', isa => 'Int', required => 1);
9             has limit => (is => 'ro', isa => 'Int', required => 1);
10             has total_entries => (is => 'ro', isa => 'Int', required => 1);
11              
12 1     1   373 no Mouse;
  1         2  
  1         5  
13              
14             sub has_next {
15 0     0 1   my ($self) = @_;
16 0           return $self->limit + $self->offset < $self->total_entries;
17             }
18              
19             1;
20             __END__