Branch Coverage

blib/lib/Perlbal/Cache.pm
Criterion Covered Total %
branch 7 62 11.2


line true false branch
20 0 1 @_ == 1 ? :
46 0 0 unless &$code($val)
48 0 0 $iter ? :
73 0 0 if $$self{'size'} and not $$self{'tail'}
74 0 0 if $$self{'size'} and not $$self{'head'}
75 0 0 if not $$self{'size'} and $$self{'tail'}
76 0 0 if not $$self{'size'} and $$self{'head'}
82 0 0 unless (defined $iter)
86 0 0 unless my $it_via_hash = $$self{'items'}{$key}
89 0 0 unless ($it_via_hash == $iter)
93 0 0 if ($count == 1 and $$iter[0])
96 0 0 if ($count == $$self{'size'} and $$iter[2])
99 0 0 if ($$iter[2] and $$iter[2][0] != $iter)
102 0 0 if ($last and $$iter[0] != $last)
105 0 0 if ($last and $$last[2] != $iter)
108 0 0 if (not $last and $$iter[0])
121 0 0 unless $$self{'size'}
124 0 0 unless my $to_die = $$self{'tail'}
130 0 0 if (defined $$self{'tail'})
140 0 0 if (not $$self{'size'})
149 23 9 unless my $item = $$self{'items'}{$key}
153 0 9 unless ($$self{'head'} == $item)
154 0 0 if ($$self{'tail'} == $item)
161 0 0 if ($next)
162 0 0 if ($prev)
182 0 0 unless my $item = $$self{'items'}{$key}
187 0 0 unless ($$self{'size'})
193 0 0 if ($$self{'head'} == $item)
198 0 0 if ($$self{'tail'} == $item)
220 1 1 if (exists $$self{'items'}{$key}) { }
231 0 1 if ($$self{'size'}) { }