| line |
true |
false |
branch |
|
955
|
0 |
23 |
unless $format |
|
956
|
1 |
22 |
if ($format =~ /^int/) { } |
|
|
0 |
22 |
elsif ($format ne 'Unicode') { } |
|
957
|
0 |
1 |
unless &Image::ExifTool::IsInt($$valPt) |
|
960
|
0 |
0 |
unless &WriteXtraValue($et, $tagInfo, \@vals) |
|
974
|
0 |
2 |
if length $data < 10 |
|
983
|
0 |
3 |
if $valPos + $valLen > length $data |
|
988
|
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) { } |
|
998
|
0 |
0 |
if $val |
|
1017
|
2 |
1 |
if ++$i >= $count |
|
1019
|
0 |
1 |
if $valPos > length $data |
|
1021
|
2 |
0 |
wantarray ? : |
|
1038
|
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') { } |
|
1042
|
1 |
0 |
if (&Image::ExifTool::IsInt($val)) |
|
1048
|
0 |
0 |
if ($dat) |
|
1055
|
0 |
0 |
if ($dat) |
|
1062
|
0 |
0 |
if (length $dat == 32) |
|
1070
|
3 |
0 |
if (defined $type) |
|
1075
|
2 |
0 |
$count ? : |
|
1085
|
0 |
2 |
unless my(@newVals) = $et->GetNewValue($nvHash) |
|
1086
|
0 |
2 |
if ($et->{'OPTIONS'}{'Verbose'} > 1) |
|
1100
|
25 |
1 |
unless $et |
|
1105
|
0 |
1 |
unless $delGroup or %$newTags |
|
1113
|
0 |
1 |
if ($delGroup) |
|
1114
|
0 |
0 |
if $dataLen |
|
1120
|
1 |
0 |
if $pos + 4 > $dataLen |
|
1122
|
0 |
0 |
if $size < 8 or $pos + $size > $dataLen |
|
1124
|
0 |
0 |
if $tagLen + 18 > $size |
|
1129
|
0 |
0 |
if $nvHash->{'CreateOnly'} |
|
1135
|
0 |
0 |
unless $overwrite |
|
1137
|
0 |
0 |
if $done{$tag} |
|
1142
|
0 |
0 |
if (not $done{$tag} and $newTags->{$tag}{'List'}) |
|
1143
|
0 |
0 |
unless &AddNewValues($et, \@newVals, $nvHash) |
|
1148
|
0 |
0 |
if ($done{$tag}) { } |
|
1152
|
0 |
0 |
if (length $buff) |
|
1161
|
0 |
1 |
if ($err) |
|
1167
|
0 |
2 |
if $done{$tag} |
|
1169
|
0 |
2 |
unless $nvHash->{'IsCreating'} and not $nvHash->{'EditOnly'} |
|
1171
|
0 |
2 |
unless &AddNewValues($et, \@newVals, $nvHash) |
|
1173
|
2 |
0 |
if (length $buff) |
|
1178
|
1 |
0 |
if ($changed) { } |
|
1200
|
1 |
2 |
if $pos + 4 > $dataLen |
|
1202
|
0 |
2 |
if $size < 8 or $pos + $size > $dataLen |
|
1204
|
0 |
2 |
if $tagLen + 18 > $size |
|
1206
|
2 |
0 |
if ($tagLen > 0 and $valLen > 0) |
|
1210
|
0 |
2 |
unless defined $val |
|
1211
|
1 |
1 |
if @$val == 1 |
|
1213
|
0 |
2 |
unless ($tagInfo) |
|
1218
|
0 |
0 |
if ($name =~ /^[-\w]+$/) |
|
1224
|
1 |
1 |
ref $val ? : |