Branch Coverage

blib/lib/TheBat/Read_TBB.pm
Criterion Covered Total %
branch 27 42 64.2


line true false branch
95 30 7 unless $persist{$k}
96 1 1 if (not $ref->{'tbb'}) { }
97 1 0 if (open TBB, '<', $tbb) { }
105 0 1 if ($ref->{'file_magic'} != 427361824)
113 0 1 if $bytes_read != $ref->{'head_size'}
126 0 1 unless $ref->{'more'}
131 1 1 if ($bytes_read < 6)
142 0 1 if ($msg_magic != 426772769)
146 0 1 if $msghead_size < 0
148 0 1 if $msghead_size != 42
153 0 1 if ($bytes_read != $msghead_size)
164 21 11 if $f2 eq '.'
1 31 if substr($status, $i, 1) eq '1'
174 0 1 if (substr $status, 0, 1) { }
187 1 0 if ($msg_size - $read < $readbuf) { }
191 0 1 if ($bytes_read != $msg_size - $read)
200 0 0 if ($bytes_read != $readbuf)
208 1 0 if ($head)
217 1 0 if (substr($ref->{'header'}, 0, 5) ne 'From ')
264 4 16 if ($hdr[1 + $i] =~ /^\s(.*)/) { }
267 10 6 if (not defined $$phdr{lc $f}) { }