Branch Coverage

blib/lib/Perlude/Lazy.pm
Criterion Covered Total %
branch 48 56 85.7


line true false branch
36 44 40242 if (@_) { }
38 29 15 if @b >= $n
41 7 8 @b < $n ? :
44 18 40224 if @b
46 40175 49 @b ? :
58 10 2 if @v
67 142 43 @array ? :
73 23 60 unless (wantarray)
74 6 17 if (defined wantarray) { }
99 1 9 unless 1 < (($l, my @v) = &$l())
100 5 4 &$cond() ? :
109 2 20007 unless 1 < (($l, my @v) = &$l())
119 32 30174 unless $n-- > 0
120 39 30135 unless 1 < (($l, my @v) = &$l())
135 1 10003 unless 1 < (($l, my @v) = &$l())
145 4 25 unless 1 < (($l, my @v) = &$l())
152 0 2 unless my(@ring) = @_
162 0 14 if $step == 0
168 16 6 ($begin += $step) <= $end ? :
169 5 3 ($begin += $step) >= $end ? :
170 6 3 $step > 0 ? :
9 5 defined $end ? :
176 3 3 if $n <= 0
182 6 3 @r ? :
190 1 0 if ref $v
198 1 0 unless @_
201 0 0 unless $_[0] eq 'chomp'
205 0 0 unless defined(my $v = <$fh>)