Branch Coverage

blib/lib/Data/TemporaryBag.pm
Criterion Covered Total %
branch 55 76 72.3


line true false branch
36 5 190 if @_
51 0 0 if ($fn)
52 0 0 if $$self[2]
63 0 21084 unless defined $data
66 18359 2725 if ($$self[1]) { }
71 194 2531 if (CORE::length($data) + CORE::length($$buf) > $Threshold * 1024) { }
86 3 19492 if $pos < 0
87 198 19297 if (not defined $size or $size + $pos > $len) { }
0 19297 elsif ($size < 0) { }
92 6 19489 defined $replace ? :
96 19487 8 if ($$self[1]) { }
101 0 19487 if $pos >= $len
104 5 19482 if (defined $replace)
106 0 5 if ($offset == 0) { }
0 5 elsif ($newlen < $Threshold * 800) { }
2 3 elsif ($pos == 0 and $startpos >= -$offset) { }
1 2 elsif ($pos + $size == $len) { }
1 1 elsif ($offset > 0) { }
118 1 1 if ($rsize > 0)
125 0 1 if $newlen < $len
129 1 0 if ($pos < $len - $pos - $size) { }
145 0 1 if ($startpos >= $offset) { }
160 1 7 if (defined $replace) { }
259 37256 784 if (defined($fh = $$self[2]))
261 2466 34790 if $recent == 1
264 69580 0 if ($$obj[4] <= $recent)
270 590 194 if (defined($fn = $$self[1])) { }
271 0 590 unless -e $fn and -f _
272 0 590 unless sysopen $fh, $fn, 2
273 0 590 if -l $fn
276 0 590 unless $self->_check_fingerprint
280 0 194 unless defined $fh
290 782 2 if (keys %OpenFiles >= $MaxOpen)
293 782 446 if ($$obj[4] > $MaxOpen)
315 0 336 if (defined $obj and $$obj[4] > $recent)
321 0 782 unless close $fh
369 0 193 if defined $$self[2]
370 192 1 if defined $$self[1]