Branch Coverage

blib/lib/Perlude/Lazy.pm
Criterion Covered Total %
branch 52 56 92.8


line true false branch
36 44 40246 if (@_) { }
38 29 15 if @b >= $n
41 7 8 @b < $n ? :
44 18 40228 if @b
46 40178 50 @b ? :
58 10 2 if @v
67 142 43 @array ? :
73 23 61 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 0 2 if ref $v
198 1 1 unless @_
201 0 1 unless $_[0] eq 'chomp'
205 1 3 unless defined(my $v = <$fh>)