Branch Coverage

blib/lib/Perlude.pm
Criterion Covered Total %
branch 49 60 81.6


line true false branch
31 1 1 unless my $isa = ref $ref
34 1 0 if ($isa eq 'HASH') { }
68 0 50275 if @b
70 50213 62 @b ? :
77 124 35 @array ? :
83 23 70 unless (wantarray)
84 6 17 if (defined wantarray) { }
102 1 6 unless my(@v) = &$i()
103 3 3 &$cond() ? :
112 2 20007 unless my(@v) = &$i()
122 31 30173 unless $n-- > 0
137 1 10003 unless my(@v) = &$i()
147 5 27 unless my(@v) = &$i()
162 2 6 unless defined($line = <$fh>)
173 10 2 if @v = &$s()
174 1 1 unless $s = shift @ss
181 0 0 unless my($s) = &$ss()
185 0 0 if @v = &$s()
186 0 0 unless $s = &$ss()
198 0 2 unless my(@ring) = @_
208 0 14 if $step == 0
211 9 5 if (defined $end) { }
212 6 3 if ($step > 0) { }
213 16 6 ($begin += $step) <= $end ? :
215 5 3 ($begin += $step) >= $end ? :
225 3 3 if $n <= 0
229 6 3 @v ? :
242 0 1 unless $n > 1
249 2 2 if $exhausted
254 1 1 if ($end <= ($to = $offset - 1))