| line |
true |
false |
branch |
|
680
|
0 |
0 |
unless my $s = $et->{'SystemTimeList'} |
|
681
|
0 |
0 |
unless ($et->{'SystemTimeListSorted'}) |
|
689
|
0 |
0 |
$val < $s->[$t][0] ? : |
|
691
|
0 |
0 |
if ($i == $j or $s->[$j][0] == $s->[$i][0]) { } |
|
711
|
0 |
0 |
unless $val and $scl |
|
712
|
0 |
0 |
unless my @scl = split(' ', $scl, 0) |
|
714
|
0 |
0 |
ref $val eq 'ARRAY' ? : |
|
720
|
0 |
0 |
@scaled > 1 ? : |
|
730
|
0 |
0 |
if ($et and $et->{'TAG_EXTRA'}{$tag}{'Units'}) |
|
732
|
0 |
0 |
unless ref $u eq "ARRAY" |
|
734
|
0 |
0 |
if (@$u == @a) |
|
737
|
0 |
0 |
if $u->[$i] |
|
753
|
0 |
0 |
ref $$dataPt eq 'ARRAY' ? : |
|
763
|
0 |
0 |
if $$tagTablePtr{++$i} |
|
769
|
0 |
0 |
if ($i) |
|
790
|
0 |
0 |
unless $raf->Read($buff, 16) == 16 |
|
792
|
0 |
0 |
if $size + 16 > $len or not $buff =~ /^GP..\0/s |
|
793
|
0 |
0 |
unless $raf->Read($buff, $size) == $size |
|
794
|
0 |
0 |
if ($buff =~ /^DEVC/) |
|
821
|
0 |
3 |
if $verbose |
|
823
|
3 |
0 |
if ($pos) { } |
|
825
|
1 |
2 |
if $parent and $parent eq "APP6" |
|
828
|
0 |
0 |
unless $et->{'SET_GROUP1'} |
|
833
|
0 |
32 |
if ($tag =~ /[^-_a-zA-Z0-9 ]/) |
|
834
|
0 |
0 |
unless $tag eq "\0\0\0\0" |
|
839
|
0 |
32 |
if ($pos + $size > $dirEnd) |
|
844
|
0 |
32 |
if $tag eq "\0\0\0\0" |
|
845
|
0 |
32 |
unless $size or $verbose |
|
848
|
0 |
32 |
if ($fmt == 63 and defined $type) { } |
|
|
0 |
32 |
elsif ($format eq 'undef' || $format eq 'string' and $count > 1 and $len > 1) { } |
|
854
|
0 |
0 |
unless my $f = $goProFmt{$b} |
|
855
|
0 |
0 |
unless $l = $goProSize{$b} || &Image::ExifTool::FormatSize($f) |
|
856
|
0 |
0 |
if $p + $l > $len |
|
858
|
0 |
0 |
unless defined $s |
|
861
|
0 |
0 |
if @s |
|
863
|
0 |
0 |
@v > 1 ? : |
|
866
|
0 |
0 |
$format eq 'undef' ? : |
|
872
|
0 |
32 |
if $tag eq "TYPE" |
|
873
|
0 |
32 |
if $tag eq "UNIT" or $tag eq "SIUN" |
|
874
|
0 |
32 |
if $tag eq "SCAL" |
|
876
|
7 |
25 |
unless ($tagInfo) |
|
877
|
0 |
7 |
unless $unknown |
|
880
|
0 |
7 |
unless $fmt |
|
884
|
0 |
0 |
if $scal and $tag ne "SCAL" and $pos + $size + 3 >= $dirEnd |
|
888
|
0 |
0 |
$fmt ? : |
|
|
0 |
32 |
$verbose ? : |
|
896
|
0 |
32 |
if $tagInfo->{'AddUnits'} and $key |
|
898
|
1 |
2 |
if $setGroup0 |