Branch Coverage

blib/lib/Image/ExifTool/TNEF.pm
Criterion Covered Total %
branch 52 90 57.7


line true false branch
232 0 1 unless length $cdat > 16
235 0 1 if ($comp == 1095517517) { }
0 1 elsif ($comp != 1967544908) { }
254 39 45 if ($control & 1 << $i) { }
255 0 39 if $cpos + 2 > $clen
260 1 38 if $off == $dpos % 4096 or $off % 4096 >= length $dict
286 0 1 unless $dirLen > 4
292 0 70 if $pos + 4 > $dirLen
297 9 61 if ($tag & 32768)
298 0 9 if $pos + 24 > $dirLen
304 9 0 if ($idtype == 0) { }
0 0 elsif ($idtype == 1) { }
307 0 0 if $pos + $num > $dirLen or $num < 2
313 0 0 unless $tagTbl->{$tag}
321 0 70 if ($type & 4096)
324 0 0 if $pos + 4 > $dirLen
328 0 70 unless $fmt = $propType{$type}
332 70 0 unless ($size)
333 36 34 if ($fmt =~ /(\d+)/) { }
0 34 elsif ($fmt eq 'null') { }
339 34 0 unless $multi
340 0 34 if $pos + 4 > $dirLen
343 0 34 if $pos + $size > $dirLen
347 36 34 if (not defined $val) { }
0 34 elsif ($fmt eq 'GUID') { }
1 33 elsif ($fmt eq 'Unicode') { }
21 12 elsif ($fmt eq 'string') { }
12 0 elsif ($fmt eq 'undef' and length $val) { }
349 16 20 if ($type == 6 or $type == 7 or $type == 11 or $type == 64)
351 0 16 if ($type == 6) { }
0 16 elsif ($type == 7) { }
13 3 elsif ($type == 11) { }
3 0 elsif ($type == 64) { }
356 0 0 if $_ != 0
360 3 10 $_ ? :
365 0 16 @a > 1 ? :
375 21 0 if $et->{'Charset'}
392 0 1 unless $i == $entries
407 0 1 unless $raf->Read($buff, 21) == 21 and $raf->Seek(6, 0)
408 0 1 unless $buff =~ /^\x78\x9f\x3e\x22..\x01\x06\x90\x08\0/s
417 0 9 if $tag == 430082
418 0 9 unless $raf->Read($buff, $len) == $len
421 5 4 if ($tagInfo and $tagInfo->{'Format'}) { }
423 2 3 if ($fmt eq "date" and length $buff >= 12)
435 0 9 if $tag == 430085