File Coverage

blib/lib/Lingua/ZH/CCDICT/ResultSet.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 2 2 100.0
total 10 16 62.5


line stmt bran cond sub pod time code
1             package Lingua::ZH::CCDICT::ResultSet;
2              
3 1     1   17 use strict;
  1         2  
  1         36  
4 1     1   4 use warnings;
  1         2  
  1         89  
5              
6              
7             sub count
8             {
9 0     0 1   my $self = shift;
10              
11 0           return $self->{index};
12             }
13              
14             sub reset
15             {
16 0     0 1   my $self = shift;
17              
18 0           $self->{index} = 0;
19             }
20              
21              
22             1;
23              
24             __END__