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   67077 use strict;
  1         14  
  1         31  
5 1     1   5 use warnings;
  1         2  
  1         27  
6              
7 1     1   430 use Array::Iterator;
  1         3  
  1         110  
8              
9             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
10             our $DATE = '2021-09-26'; # DATE
11             our $DIST = 'Array-Iterator'; # DIST
12             our $VERSION = '0.131'; # VERSION
13              
14             our @ISA = qw(Array::Iterator);
15              
16             sub reset {
17 1     1 1 5 my ($self) = @_;
18 1         7 $self->_iterated = 0;
19 1         6 $self->_current_index = 0;
20             }
21              
22             1;
23             # ABSTRACT: A subclass of Array::Iterator to allow reuse of iterators
24              
25             __END__