File Coverage

blib/lib/Array/Iter.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 24 26 92.3


line stmt bran cond sub pod time code
1             package Array::Iter;
2              
3             our $DATE = '2015-12-23'; # DATE
4             our $VERSION = '0.01'; # VERSION
5              
6 1     1   573 use strict;
  1         2  
  1         24  
7 1     1   5 use warnings;
  1         2  
  1         25  
8              
9 1     1   4 use Exporter qw(import);
  1         1  
  1         142  
10             our @EXPORT_OK = qw(array_iter list_iter);
11              
12             sub array_iter {
13 2     2 0 640 my $ary = shift;
14 2         4 my $i = 0;
15             sub {
16 12 100   12   55 if ($i < @$ary) {
17 10         21 return $ary->[$i++];
18             } else {
19 2         4 return undef;
20             }
21 2         9 };
22             }
23              
24             sub list_iter {
25 1     1 0 1487 array_iter([@_]);
26             }
27              
28             1;
29             # ABSTRACT: Generate a coderef iterator for an array
30              
31             __END__