| line |
true |
false |
branch |
|
979
|
2 |
0 |
if $Image::ExifTool::IPTC::iptcCharset{$val} |
|
994
|
0 |
4 |
unless ($xlat) |
|
995
|
0 |
0 |
if ($val =~ /^\x1b\x25/) { } |
|
1003
|
4 |
0 |
if $xlat eq $et->Options("Charset") |
|
1015
|
0 |
3 |
if ($$xlatPtr eq 'bad') { } |
|
|
1 |
2 |
elsif (not $read) { } |
|
|
2 |
0 |
elsif (not $$valPtr =~ /[\x14\x15\x1b]/) { } |
|
1036
|
81 |
70 |
if $isStandardIPTC{$path} |
|
1037
|
26 |
44 |
unless $path =~ /^(\w+)/ and defined $isStandardIPTC{$1} |
|
1058
|
0 |
175 |
if $verbose and $dirInfo |
|
1060
|
150 |
25 |
if ($tagTablePtr eq \%Image::ExifTool::IPTC::Main) |
|
1063
|
106 |
44 |
if (defined $isStd and not $et->{'DIR_COUNT'}{'STD_IPTC'}) { } |
|
1067
|
80 |
26 |
if ($isStd) |
|
1069
|
80 |
0 |
if (eval {
do {
require Digest::MD5
}
}) { } |
|
1070
|
68 |
12 |
if ($pos or $dirLen != length $$dataPt) { } |
|
1082
|
4 |
40 |
if ($Image::ExifTool::MWG::strict || $et->Options('Validate') and $et->{'FILE_TYPE'} =~ /^(JPEG|TIFF|PSD)$/) |
|
1085
|
4 |
0 |
if ($Image::ExifTool::MWG::strict) { } |
|
1102
|
0 |
171 |
if $xlat eq $et->Options("Charset") |
|
1105
|
0 |
171 |
if ($dirLen >= 4 and substr($$dataPt, $pos, 1) ne "\34" and substr($$dataPt, $pos + 3, 1) eq "\34") |
|
1116
|
35 |
136 |
if ($et->{'REQ_TAG_LOOKUP'}{'iptc'} or $et->{'TAGS_FROM_FILE'} and not $et->{'EXCL_TAG_LOOKUP'}{'iptc'}) |
|
1119
|
17 |
18 |
if ($pos or $dirLen != length $$dataPt) { } |
|
1128
|
3 |
2462 |
unless ($id == 28) |
|
1129
|
3 |
0 |
unless ($id) |
|
1133
|
3 |
0 |
unless $remaining =~ /[^\0]/ |
|
1140
|
0 |
2462 |
if ($len & 32768) |
|
1142
|
0 |
0 |
if ($pos + $n > $dirEnd or $n > 8) |
|
1152
|
0 |
2462 |
if ($pos + $len > $dirEnd) |
|
1157
|
174 |
2288 |
if (not defined $lastRec or $lastRec != $rec) |
|
1158
|
0 |
0 |
if ($validate and defined $lastRec and $rec < $lastRec) |
|
1162
|
0 |
174 |
unless ($tableInfo) |
|
1168
|
0 |
174 |
unless ($tableName) |
|
1180
|
22 |
2440 |
unless ($recordPtr->{$tag}) |
|
1190
|
2427 |
35 |
if $tagInfo |
|
1191
|
230 |
2232 |
if (not $format) { } |
|
|
0 |
2232 |
elsif ($validate) { } |
|
1193
|
175 |
19 |
if $len <= 4 and $len != 3 and $val =~ /[\0-\x08]/ |
|
1196
|
0 |
0 |
if ($format =~ /(.*)\[(\d+)(,(\d+))?\]/) { } |
|
1206
|
0 |
0 |
if ($len < $min or $len > $max) |
|
1207
|
0 |
0 |
$len < $min ? : |
|
|
0 |
0 |
$min == $max ? : |
|
1208
|
0 |
0 |
$len < $siz * $min ? : |
|
1212
|
2407 |
55 |
if ($format) |
|
1213
|
332 |
2075 |
if ($format =~ /^int/) { } |
|
|
1885 |
190 |
elsif ($format =~ /^string/) { } |
|
|
188 |
2 |
elsif ($format =~ /^digits/) { } |
|
|
0 |
2 |
elsif (not $format =~ /^undef/) { } |
|
1214
|
328 |
4 |
if ($len <= 8) |
|
1223
|
0 |
1885 |
if ($val =~ s/\0+$// and $validate) |
|
1226
|
2 |
1883 |
if ($rec == 1) { } |
|
|
2 |
1881 |
elsif ($xlat and $rec < 7 and $val =~ /[\x80-\xff]/) { } |
|
1228
|
2 |
0 |
if $tag == 90 |
|
1235
|
0 |
188 |
if ($val =~ s/\0+$// and $validate) |
|
1247
|
0 |
2462 |
if $verbose |
|
1252
|
2427 |
35 |
if $tagInfo |