File Coverage

blib/lib/Array/Iterator/Reusable.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1              
2             package Array::Iterator::Reusable;
3              
4 1     1   71634 use strict;
  1         12  
  1         30  
5 1     1   5 use warnings;
  1         2  
  1         51  
6              
7             our $VERSION = '0.130'; # VERSION
8              
9 1     1   566 use Array::Iterator;
  1         2  
  1         79  
10             our @ISA = qw(Array::Iterator);
11              
12             sub reset {
13 1     1 1 5 my ($self) = @_;
14 1         8 $self->_iterated = 0;
15 1         6 $self->_current_index = 0;
16             }
17              
18             1;
19             # ABSTRACT: A subclass of Array::Iterator to allow reuse of iterators
20              
21             __END__