Branch Coverage

blib/lib/TheBat/Read_TBB.pm
Criterion Covered Total %
branch 28 50 56.0


line true false branch
119 0 0 if ($$ref{"flag_$k"}) { }
127 0 0 if ($newbuf ne $buf) { }
131 0 0 if ($bytes_read ne $ref->{'msghead_size'})
149 33 7 unless $persist{$k}
150 1 1 if (not $ref->{'tbb'}) { }
151 1 0 if (open TBB, '+<', $tbb) { }
159 0 1 if ($ref->{'file_magic'} != 427361824)
167 0 1 if $bytes_read != $ref->{'head_size'}
180 0 1 unless $ref->{'more'}
185 1 1 if ($bytes_read < 6)
196 0 1 if ($ref->{'msg_magic'} != 426772769)
200 0 1 if $ref->{'msghead_size'} < 0
202 0 1 if $ref->{'msghead_size'} != 42
208 0 1 if ($bytes_read != $ref->{'msghead_size'})
219 21 11 if $f2 eq '.'
1 31 if substr($status, $i, 1) eq '1'
229 0 1 if (substr $status, 0, 1) { }
242 1 0 if ($msg_size - $read < $readbuf) { }
246 0 1 if ($bytes_read != $msg_size - $read)
255 0 0 if ($bytes_read != $readbuf)
263 1 0 if ($head)
272 1 0 if (substr($ref->{'header'}, 0, 5) ne 'From ')
279 0 5 unless defined $hdr{lc $hk}
320 4 16 if ($hdr[1 + $i] =~ /^\s(.*)/) { }
323 10 6 if (not defined $$phdr{lc $f}) { }