Branch Coverage

blib/lib/Tie/Cacher.pm
Criterion Covered Total %
branch 90 98 91.8


line true false branch
39 0 52 unless defined(my $class = shift())
50 6 46 if (@_ % 2)
51 6 0 if (@_ == 1)
52 2 4 if (ref $_[0]) { }
58 0 6 if @_ % 2
63 2 82 unless $attributes{$key}
122 84 600694 if ($node) { }
126 200002 400692 if ($$cacher[4] >= $$cacher[5]) { }
146 76 600702 if ($$cacher[8])
151 2 74 if ($@)
161 200218 56 if ($node) { }
174 200127 91 unless $$cacher[6]
176 52 37 if &{$$cacher[6];}
177 9 28 unless ($$cacher[7])
184 34 22 unless $$cacher[7]
185 0 22 if ($$cacher[4] >= $$cacher[5]) { }
206 8 38 if $$cacher[8]
208 44 6 unless $@
216 32 16 if ($node) { }
229 20 12 unless $$cacher[6]
231 8 4 if &{$$cacher[6];}
232 0 4 unless ($$cacher[7])
239 10 6 unless $$cacher[7]
240 0 6 if ($$cacher[4] >= $$cacher[5]) { }
261 2 8 if $$cacher[8]
263 10 0 unless $@
271 321 53 unless wantarray
272 36 17 unless my(@work) = each %{$$cacher[1];}
278 253 75 unless wantarray
279 44 31 unless my(@work) = each %{$$cacher[1];}
285 30 200149 if (@_ != 1) { }
200115 34 elsif (my $node = delete $$cacher[1]{shift()}) { }
286 3 27 unless @_
287 18 9 if (defined wantarray) { }
289 18 8 if (my $node = delete $$cacher[1]{$_})
9 9 if wantarray
351 72 36 if $here == $head
358 72 36 if $here == $head
363 184 4 if @_ < 2
371 184 4 if @_ < 2
380 14 12 if (@_)
382 12 2 if (defined(my $val = shift())) { }
383 0 12 if $val < 1
388 10 4 if $old == 9**9**9
391 4 8 if $$cacher[5] == 9**9**9
396 10 38 if @_ < 2
404 28 18 if @_ < 2
412 28 16 if @_ < 2
420 22 24 if @_ < 2