| line |
true |
false |
branch |
|
798
|
0 |
17 |
unless $format |
|
799
|
1 |
16 |
if ($format =~ /^int/) { } |
|
|
0 |
16 |
elsif ($format ne 'Unicode') { } |
|
800
|
0 |
1 |
unless &Image::ExifTool::IsInt($$valPt) |
|
803
|
0 |
0 |
unless &WriteXtraValue($et, $tagInfo, \@vals) |
|
817
|
0 |
2 |
if length $data < 10 |
|
826
|
0 |
3 |
if $valPos + $valLen > length $data |
|
831
|
2 |
1 |
if ($valType == 8) { } |
|
|
1 |
0 |
elsif ($valType == 19 and $valLen == 8) { } |
|
|
0 |
0 |
elsif ($valType == 21 and $valLen == 8) { } |
|
|
0 |
0 |
elsif ($valType == 72 and $valLen == 16) { } |
|
|
0 |
0 |
elsif ($valType == 65 and $valLen > 4) { } |
|
841
|
0 |
0 |
if $val |
|
860
|
2 |
1 |
if ++$i >= $count |
|
862
|
0 |
1 |
if $valPos > length $data |
|
864
|
2 |
0 |
wantarray ? : |
|
881
|
2 |
1 |
if ($format eq 'Unicode') { } |
|
|
1 |
0 |
elsif ($format eq 'int64u') { } |
|
|
0 |
0 |
elsif ($format eq 'date') { } |
|
|
0 |
0 |
elsif ($format eq 'vt_filetime') { } |
|
|
0 |
0 |
elsif ($format eq 'GUID') { } |
|
885
|
1 |
0 |
if (&Image::ExifTool::IsInt($val)) |
|
891
|
0 |
0 |
if ($dat) |
|
898
|
0 |
0 |
if ($dat) |
|
905
|
0 |
0 |
if (length $dat == 32) |
|
913
|
3 |
0 |
if (defined $type) |
|
918
|
2 |
0 |
$count ? : |
|
928
|
0 |
2 |
unless my(@newVals) = $et->GetNewValue($nvHash) |
|
929
|
0 |
2 |
if ($et->{'OPTIONS'}{'Verbose'} > 1) |
|
943
|
18 |
1 |
unless $et |
|
948
|
0 |
1 |
unless $delGroup or %$newTags |
|
956
|
0 |
1 |
if ($delGroup) |
|
957
|
0 |
0 |
if $dataLen |
|
963
|
1 |
0 |
if $pos + 4 > $dataLen |
|
965
|
0 |
0 |
if $size < 8 or $pos + $size > $dataLen |
|
967
|
0 |
0 |
if $tagLen + 18 > $size |
|
972
|
0 |
0 |
if $nvHash->{'CreateOnly'} |
|
978
|
0 |
0 |
unless $overwrite |
|
980
|
0 |
0 |
if $done{$tag} |
|
985
|
0 |
0 |
if (not $done{$tag} and $newTags->{$tag}{'List'}) |
|
986
|
0 |
0 |
unless &AddNewValues($et, \@newVals, $nvHash) |
|
991
|
0 |
0 |
if ($done{$tag}) { } |
|
995
|
0 |
0 |
if (length $buff) |
|
1004
|
0 |
1 |
if ($err) |
|
1010
|
0 |
2 |
if $done{$tag} |
|
1012
|
0 |
2 |
unless $nvHash->{'IsCreating'} and not $nvHash->{'EditOnly'} |
|
1014
|
0 |
2 |
unless &AddNewValues($et, \@newVals, $nvHash) |
|
1016
|
2 |
0 |
if (length $buff) |
|
1021
|
1 |
0 |
if ($changed) { } |
|
1043
|
1 |
2 |
if $pos + 4 > $dataLen |
|
1045
|
0 |
2 |
if $size < 8 or $pos + $size > $dataLen |
|
1047
|
0 |
2 |
if $tagLen + 18 > $size |
|
1049
|
2 |
0 |
if ($tagLen > 0 and $valLen > 0) |
|
1053
|
0 |
2 |
unless defined $val |
|
1054
|
1 |
1 |
if @$val == 1 |
|
1056
|
0 |
2 |
unless ($tagInfo) |
|
1061
|
0 |
0 |
if ($name =~ /^[-\w]+$/) |
|
1067
|
1 |
1 |
ref $val ? : |