File Coverage

blib/lib/List/Zip.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package List::Zip;
2              
3 2     2   1273 use strict;
  2         3  
  2         60  
4 2     2   10 use warnings;
  2         3  
  2         381  
5              
6             our $VERSION = '0.04';
7              
8             sub zip {
9 12     12 1 4538913 my ($class, @arrays) = @_;
10              
11 12         64 return map { [ map { shift @{ $_ } } @arrays ] } 0 .. _cutoff(@arrays);
  168         249  
  14893         12232  
  14893         20499  
12             }
13              
14             sub _cutoff {
15 12     12   114 return ((sort map { scalar @{ $_ } } @_)[0] - 1);
  1334         1263  
  1334         2596  
16             }
17              
18             1;
19              
20             __END__