| line |
true |
false |
branch |
|
453
|
0 |
2 |
if $pos >= length $$dataPt |
|
455
|
0 |
2 |
$unicode ? : |
|
|
2 |
0 |
if $unicode ? $$dataPt =~ /\G((?:..)*?)\0\0/gs : $$dataPt =~ /\G(.*?)\0/gs |
|
475
|
1 |
1 |
if $pos + 4 >= $dataLen |
|
477
|
0 |
1 |
if $size < 2 or $pos + $size > $dataLen |
|
482
|
0 |
1 |
unless $tagTablePtr->{$tag} |
|
497
|
0 |
1 |
if $dataLen < 32 |
|
507
|
1 |
0 |
if ($lif & 1) |
|
510
|
1 |
0 |
if ($off and $off + 32 <= $dataLen) |
|
515
|
0 |
1 |
if ($pos == 20) |
|
522
|
1 |
0 |
if (defined $val) |
|
524
|
0 |
1 |
if $unicode |
|
529
|
0 |
1 |
if ($hdrLen >= 36) { } |
|
537
|
1 |
0 |
if (defined $val) |
|
539
|
0 |
1 |
if $unicode |
|
543
|
0 |
1 |
if ($lif & 2) |
|
546
|
0 |
0 |
if ($off and $off + 20 <= $dataLen) |
|
548
|
0 |
0 |
if $off + $siz > $dataLen |
|
550
|
0 |
0 |
if ($pos > 20 and $siz >= 24) { } |
|
557
|
0 |
0 |
if (defined $val) |
|
559
|
0 |
0 |
if $unicode |
|
563
|
0 |
0 |
if ($flg & 1) |
|
565
|
0 |
0 |
if ($pos > 20 and $siz >= 28) { } |
|
572
|
0 |
0 |
if (defined $val) |
|
574
|
0 |
0 |
if $unicode |
|
578
|
0 |
0 |
if ($flg & 2) |
|
598
|
0 |
1 |
unless $raf->Read($buff, 76) == 76 |
|
599
|
0 |
1 |
unless $buff =~ /^.{4}\x01\x14\x02\0{5}\xc0\0{6}\x46/s |
|
601
|
0 |
1 |
unless $len >= 76 |
|
602
|
0 |
1 |
if ($len > 76) |
|
603
|
0 |
0 |
unless $raf->Read($buf2, $len - 76) == $len - 76 |
|
621
|
1 |
0 |
if ($flags & 1) |
|
622
|
0 |
1 |
unless $raf->Read($buff, 2) |
|
624
|
0 |
1 |
unless $raf->Read($buff, $len) == $len |
|
633
|
1 |
0 |
if ($flags & 2) |
|
634
|
0 |
1 |
unless $raf->Read($buff, 4) |
|
636
|
0 |
1 |
if $len < 4 |
|
637
|
0 |
1 |
unless $raf->Read($buf2, $len - 4) == $len - 4 |
|
651
|
1 |
4 |
unless $flags & $mask |
|
652
|
0 |
4 |
unless $raf->Read($buff, 2) |
|
654
|
4 |
0 |
if $flags & 128 |
|
655
|
0 |
4 |
unless $raf->Read($buff, $len) |
|
657
|
4 |
0 |
if $flags & 128 |
|
668
|
1 |
2 |
if $len < 4 |
|
670
|
0 |
2 |
unless $raf->Read($buf2, $len) == $len |
|
671
|
0 |
2 |
unless $len > 4 |
|
675
|
0 |
2 |
unless (ref $tagInfo eq "HASH" and $tagInfo->{'SubDirectory'}) |