| 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) |
|
313
|
0 |
1 |
if $pos + 2 > $dirLen |
|
318
|
1 |
0 |
if ($frac) |
|
324
|
1 |
0 |
if ($tz < 0) { } |
|
333
|
0 |
7 |
if $pos + 1 > $dirLen |
|
335
|
7 |
0 |
if $val < 2 |
|
338
|
0 |
10 |
if $pos + 2 > $dirLen |
|
340
|
0 |
10 |
if $pos + 2 + $len > $dirLen |
|
347
|
4 |
1 |
if ($type == 8) { } |
|
|
0 |
1 |
elsif ($type == 16) { } |
|
349
|
0 |
4 |
if $pos + 4 > $dirLen |
|
356
|
0 |
45 |
if $pos + 2 > $dirLen |
|
358
|
0 |
45 |
if ($pos + 2 + $len > $dirLen) |
|
365
|
0 |
45 |
if ($getName) |
|
373
|
2 |
32 |
if ($tagInfo and $tagInfo->{'SubDirectory'}) |
|
376
|
2 |
0 |
if ($subTable =~ /^Image::ExifTool::Flash::/) |
|
386
|
15 |
30 |
if defined $structName |
|
392
|
0 |
45 |
unless defined $t and defined $v |
|
393
|
2 |
43 |
if $isStruct{$t} |
|
394
|
1 |
42 |
if ref $v eq "ARRAY" and not @$v |
|
395
|
5 |
37 |
if $t == 9 |
|
396
|
9 |
28 |
if (not $subTablePtr->{$tag} and $tag =~ /^\w+$/) |
|
413
|
0 |
0 |
if $pos + 2 > $dirLen |
|
417
|
0 |
3 |
if $pos + 4 > $dirLen |
|
424
|
10 |
0 |
if defined $structName |
|
426
|
0 |
10 |
unless defined $v |
|
428
|
8 |
2 |
unless $isStruct{$t} |
|
434
|
0 |
0 |
if $pos + 4 > $dirLen |
|
436
|
0 |
0 |
if $pos + 4 + $len > $dirLen |
|
447
|
55 |
3 |
if $single |
|
448
|
2 |
1 |
unless ($isStruct{$type}) |
|
450
|
2 |
0 |
if ($type == 2 and not $rec) { } |
|
451
|
1 |
1 |
$processMetaPacket{$val} ? : |
|
453
|
1 |
1 |
unless $processMetaPacket{$val} |
|
461
|
0 |
57 |
if (not defined $val and defined $type) |
|
464
|
2 |
55 |
unless $single |
|
480
|
0 |
1 |
unless $raf->Read($buff, 9) == 9 |
|
481
|
0 |
1 |
unless $buff =~ /^FLV\x01/ |
|
485
|
0 |
1 |
if $offset > 9 |
|
490
|
0 |
4 |
unless $raf->Read($buff, 15) == 15 |
|
495
|
0 |
4 |
if ($verbose > 1) |
|
496
|
0 |
0 |
$tagInfo ? : |
|
500
|
4 |
0 |
if ($tagInfo and $tagInfo->{'SubDirectory'}) |
|
502
|
2 |
2 |
if ($mask) { } |
|
|
2 |
0 |
elsif ($raf->Read($buff, $len) == $len) { } |
|
504
|
2 |
0 |
unless ($found & $mask) |
|
507
|
2 |
0 |
if ($len >= 1 and $raf->Read($buff, 1) == 1) { } |
|
521
|
4 |
0 |
if (defined $buff) |
|
527
|
1 |
3 |
unless $flags |
|
528
|
1 |
2 |
if $len |
|
553
|
0 |
3 |
unless ($raf->Read($buff, $len)) |
|
558
|
0 |
3 |
if ($inflate) |
|
559
|
0 |
0 |
unless (ref $inflate) |
|
560
|
0 |
0 |
unless (eval {
do {
require Compress::Zlib
}
}) |
|
565
|
0 |
0 |
unless ($inflate) |
|
576
|
0 |
0 |
if ($stat == Compress::Zlib::Z_STREAM_END() or $stat == Compress::Zlib::Z_OK()) { } |
|
580
|
0 |
0 |
if length $buff >= $len or $stat == Compress::Zlib::Z_STREAM_END() |
|
581
|
0 |
0 |
unless $raf->Read($tmp, 64) |
|
587
|
0 |
0 |
unless length $buff |
|
589
|
3 |
0 |
defined $_[1] ? : |
|
603
|
0 |
1 |
unless $raf->Read($buff, 8) == 8 |
|
604
|
0 |
1 |
unless $buff =~ /^(F|C)WS([^\0])/ |
|
605
|
0 |
1 |
$1 eq 'C' ? : |
|
616
|
0 |
1 |
unless (&ReadCompressed($raf, $buff, 64, $compressed)) |
|
617
|
0 |
0 |
if $compressed |
|
625
|
0 |
1 |
if (length $buff < $nBytes + 4) |
|
643
|
1 |
0 |
if $vals[0] |
|
649
|
0 |
1 |
if $buffLen < 2 |
|
655
|
0 |
1 |
unless $tag == 69 or $tag == 77 or $hasMeta |
|
657
|
1 |
0 |
if ($pos + $size > $buffLen) |
|
659
|
0 |
1 |
unless (&ReadCompressed($raf, $buff, $size + 2, $compressed)) |
|
660
|
0 |
0 |
if $compressed |
|
664
|
0 |
1 |
if $pos + $size > $buffLen |
|
667
|
1 |
0 |
if ($size == 63) |
|
668
|
0 |
1 |
if $pos + 4 > $buffLen |
|
671
|
0 |
1 |
if $size > 1000000 |
|
672
|
1 |
0 |
if ($pos + $size > $buffLen) |
|
673
|
0 |
1 |
unless (&ReadCompressed($raf, $buff, $size + 2, $compressed)) |
|
674
|
0 |
0 |
if $compressed |
|
678
|
0 |
1 |
if $pos + $size > $buffLen |
|
682
|
0 |
1 |
if ($tag == 69) { } |
|
|
1 |
0 |
elsif ($tag == 77) { } |
|
683
|
0 |
0 |
unless $size |
|
686
|
0 |
0 |
unless $flags & 16 |
|
693
|
0 |
0 |
if $pos + 2 > $buffLen |