| line |
true |
false |
branch |
|
299
|
2 |
55 |
unless $single |
|
302
|
1 |
58 |
if $pos >= $dirLen |
|
305
|
28 |
30 |
if ($type == 0 or $type == 11) { } |
|
|
7 |
23 |
elsif ($type == 1) { } |
|
|
10 |
13 |
elsif ($type == 2) { } |
|
|
5 |
8 |
elsif ($isStruct{$type}) { } |
|
|
5 |
3 |
elsif ($type == 5 or $type == 6 or $type == 9 or $type == 13) { } |
|
|
0 |
3 |
elsif ($type == 7) { } |
|
|
3 |
0 |
elsif ($type == 10) { } |
|
|
0 |
0 |
elsif ($type == 12 or $type == 15) { } |
|
306
|
0 |
28 |
if $pos + 8 > $dirLen |
|
309
|
1 |
27 |
if ($type == 11) |
|
312
|
0 |
1 |
if $pos + 2 > $dirLen |
|
318
|
1 |
0 |
if ($tz < 0) { } |
|
327
|
0 |
7 |
if $pos + 1 > $dirLen |
|
329
|
7 |
0 |
if $val < 2 |
|
332
|
0 |
10 |
if $pos + 2 > $dirLen |
|
334
|
0 |
10 |
if $pos + 2 + $len > $dirLen |
|
341
|
4 |
1 |
if ($type == 8) { } |
|
|
0 |
1 |
elsif ($type == 16) { } |
|
343
|
0 |
4 |
if $pos + 4 > $dirLen |
|
350
|
0 |
45 |
if $pos + 2 > $dirLen |
|
352
|
0 |
45 |
if ($pos + 2 + $len > $dirLen) |
|
359
|
0 |
45 |
if ($getName) |
|
367
|
2 |
32 |
if ($tagInfo and $tagInfo->{'SubDirectory'}) |
|
370
|
2 |
0 |
if ($subTable =~ /^Image::ExifTool::Flash::/) |
|
380
|
15 |
30 |
if defined $structName |
|
386
|
0 |
45 |
unless defined $t and defined $v |
|
387
|
2 |
43 |
if $isStruct{$t} |
|
388
|
1 |
42 |
if ref $v eq "ARRAY" and not @$v |
|
389
|
5 |
37 |
if $t == 9 |
|
390
|
9 |
28 |
if (not $subTablePtr->{$tag} and $tag =~ /^\w+$/) |
|
407
|
0 |
0 |
if $pos + 2 > $dirLen |
|
411
|
0 |
3 |
if $pos + 4 > $dirLen |
|
418
|
10 |
0 |
if defined $structName |
|
420
|
0 |
10 |
unless defined $v |
|
422
|
8 |
2 |
unless $isStruct{$t} |
|
428
|
0 |
0 |
if $pos + 4 > $dirLen |
|
430
|
0 |
0 |
if $pos + 4 + $len > $dirLen |
|
441
|
55 |
3 |
if $single |
|
442
|
2 |
1 |
unless ($isStruct{$type}) |
|
444
|
2 |
0 |
if ($type == 2 and not $rec) { } |
|
445
|
1 |
1 |
$processMetaPacket{$val} ? : |
|
447
|
1 |
1 |
unless $processMetaPacket{$val} |
|
455
|
0 |
57 |
if (not defined $val and defined $type) |
|
458
|
2 |
55 |
unless $single |
|
474
|
0 |
1 |
unless $raf->Read($buff, 9) == 9 |
|
475
|
0 |
1 |
unless $buff =~ /^FLV\x01/ |
|
479
|
0 |
1 |
if $offset > 9 |
|
484
|
0 |
4 |
unless $raf->Read($buff, 15) == 15 |
|
489
|
0 |
4 |
if ($verbose > 1) |
|
490
|
0 |
0 |
$tagInfo ? : |
|
494
|
4 |
0 |
if ($tagInfo and $tagInfo->{'SubDirectory'}) |
|
496
|
2 |
2 |
if ($mask) { } |
|
|
2 |
0 |
elsif ($raf->Read($buff, $len) == $len) { } |
|
498
|
2 |
0 |
unless ($found & $mask) |
|
501
|
2 |
0 |
if ($len >= 1 and $raf->Read($buff, 1) == 1) { } |
|
515
|
4 |
0 |
if (defined $buff) |
|
521
|
1 |
3 |
unless $flags |
|
522
|
1 |
2 |
if $len |
|
547
|
0 |
3 |
unless ($raf->Read($buff, $len)) |
|
552
|
0 |
3 |
if ($inflate) |
|
553
|
0 |
0 |
unless (ref $inflate) |
|
554
|
0 |
0 |
unless (eval {
do {
require Compress::Zlib
}
}) |
|
559
|
0 |
0 |
unless ($inflate) |
|
570
|
0 |
0 |
if ($stat == Compress::Zlib::Z_STREAM_END() or $stat == Compress::Zlib::Z_OK()) { } |
|
574
|
0 |
0 |
if length $buff >= $len or $stat == Compress::Zlib::Z_STREAM_END() |
|
575
|
0 |
0 |
unless $raf->Read($tmp, 64) |
|
581
|
0 |
0 |
unless length $buff |
|
583
|
3 |
0 |
defined $_[1] ? : |
|
597
|
0 |
1 |
unless $raf->Read($buff, 8) == 8 |
|
598
|
0 |
1 |
unless $buff =~ /^(F|C)WS([^\0])/ |
|
599
|
0 |
1 |
$1 eq 'C' ? : |
|
610
|
0 |
1 |
unless (&ReadCompressed($raf, $buff, 64, $compressed)) |
|
611
|
0 |
0 |
if $compressed |
|
619
|
0 |
1 |
if (length $buff < $nBytes + 4) |
|
637
|
1 |
0 |
if $vals[0] |
|
643
|
0 |
1 |
if $buffLen < 2 |
|
649
|
0 |
1 |
unless $tag == 69 or $tag == 77 or $hasMeta |
|
651
|
1 |
0 |
if ($pos + $size > $buffLen) |
|
653
|
0 |
1 |
unless (&ReadCompressed($raf, $buff, $size + 2, $compressed)) |
|
654
|
0 |
0 |
if $compressed |
|
658
|
0 |
1 |
if $pos + $size > $buffLen |
|
661
|
1 |
0 |
if ($size == 63) |
|
662
|
0 |
1 |
if $pos + 4 > $buffLen |
|
665
|
0 |
1 |
if $size > 1000000 |
|
666
|
1 |
0 |
if ($pos + $size > $buffLen) |
|
667
|
0 |
1 |
unless (&ReadCompressed($raf, $buff, $size + 2, $compressed)) |
|
668
|
0 |
0 |
if $compressed |
|
672
|
0 |
1 |
if $pos + $size > $buffLen |
|
676
|
0 |
1 |
if ($tag == 69) { } |
|
|
1 |
0 |
elsif ($tag == 77) { } |
|
677
|
0 |
0 |
unless $size |
|
680
|
0 |
0 |
unless $flags & 16 |
|
687
|
0 |
0 |
if $pos + 2 > $buffLen |