| line |
true |
false |
branch |
|
2878
|
4509 |
154 |
unless $conv |
|
2893
|
0 |
0 |
if ($str =~ /[\0-\x1f]/ or &Image::ExifTool::IsUTF8(\$str) < 0) |
|
2923
|
122 |
107 |
unless (defined $val) |
|
2924
|
112 |
10 |
if ($ch =~ /^#x([0-9a-fA-F]+)$/) { } |
|
|
10 |
0 |
elsif ($ch =~ /^#(\d+)$/) { } |
|
2932
|
75 |
154 |
if $val < 128 |
|
2933
|
154 |
0 |
$] >= 5.006001 ? : |
|
2934
|
0 |
154 |
if $enc and $enc ne "UTF8" |
|
2949
|
1373 |
26 |
unless $$strPt =~ /([\x80-\xff])/g |
|
2953
|
26 |
0 |
if ($ch >= 194 and $ch < 248) |
|
2954
|
0 |
0 |
$ch < 240 ? : |
|
|
26 |
0 |
$ch < 224 ? : |
|
2955
|
26 |
0 |
if ($$strPt =~ /\G([\x80-\xbf]{$n})/g) |
|
2956
|
26 |
0 |
if $n == 1 |
|
2957
|
0 |
0 |
if ($n == 2) { } |
|
2958
|
0 |
0 |
unless $ch == 224 and (ord $1 & 224) == 128 or $ch == 237 and (ord $1 & 224) == 160 or $ch == 239 and ord $1 == 191 and (ord substr($1, 1) & 254) == 190 |
|
2963
|
0 |
0 |
unless $ch == 240 and (ord $1 & 240) == 128 or $ch == 244 and ord $1 > 143 or $ch > 244 |
|
2969
|
0 |
0 |
unless defined $bad |
|
3005
|
8 |
1 |
if ($i < $len) |
|
3025
|
73999 |
605 |
$prop =~ /(.*?):(.*)/ ? : |
|
3026
|
43129 |
31475 |
if ($ignoreNamespace{$ns} or $ignoreProp{$prop} or $ignoreEtProp{$prop}) { } |
|
3029
|
43129 |
0 |
unless ($prop =~ /^rdf:(_\d+)$/) |
|
3031
|
440 |
2778 |
if ($structProps and @$structProps and $prop =~ /^rdf:li (\d+)$/) |
|
3036
|
0 |
0 |
if defined $tag |
|
3040
|
301 |
31174 |
unless ($nm =~ /[a-z]/) |
|
3044
|
63 |
0 |
if (ref $info eq "HASH" and $info->{'SubDirectory'}) |
|
3047
|
286 |
15 |
unless ($table and $table->{$nm}) |
|
3052
|
13268 |
18207 |
if (defined $tag) { } |
|
3058
|
1393 |
30082 |
if ($structProps) |
|
3060
|
475 |
918 |
if $nsList |
|
3064
|
18517 |
12958 |
unless $namespace |
|
3066
|
3896 |
14328 |
if (wantarray) { } |
|
3080
|
541 |
32 |
unless ref $table->{'NAMESPACE'} |
|
3084
|
0 |
32 |
if (ref $nsRef eq 'ARRAY') { } |
|
3092
|
0 |
32 |
if ($Image::ExifTool::XMP::nsURI{$ns} and $Image::ExifTool::XMP::nsURI{$ns} ne $nsRef->{$ns}) |
|
3116
|
5694 |
0 |
if (defined $tagID) { } |
|
3121
|
0 |
0 |
unless ref $tagInfo eq "HASH" and $tagInfo->{'Struct'} |
|
3131
|
5134 |
560 |
if $tagInfo->{'Flattened'} |
|
3135
|
0 |
560 |
unless (ref $strTable) |
|
3137
|
0 |
0 |
unless $strTable = $Image::ExifTool::UserDefined::xmpStruct{$strTable} |
|
3138
|
0 |
0 |
unless $strTable->{'STRUCT_NAME'} |
|
3144
|
176 |
384 |
defined $tagInfo->{'FlatName'} ? : |
|
3148
|
312 |
248 |
if $tagInfo->{'Groups'} |
|
3149
|
248 |
312 |
unless $tagG2 |
|
3152
|
1187 |
5560 |
if $Image::ExifTool::XMP::specialStruct{$field} |
|
3154
|
5 |
5555 |
if $fieldInfo->{'LangCode'} |
|
3155
|
52 |
5503 |
if $fieldInfo->{'Struct'} and $noSubStruct |
|
3161
|
319 |
5184 |
if ($flatInfo) { } |
|
3162
|
0 |
319 |
unless ref $flatInfo eq "HASH" |
|
3164
|
4 |
315 |
unless (defined $flatInfo->{'Flat'}) |
|
3165
|
4 |
0 |
if $flatInfo->{'NotFlat'} |
|
3166
|
0 |
0 |
if $Image::ExifTool::debug |
|
3173
|
33 |
233 |
if $_ eq "PropertyPath" or defined $flatInfo->{$_} |
|
3175
|
12 |
221 |
$_ eq 'Groups' ? : |
|
3179
|
61 |
254 |
if $flatInfo->{'List'} |
|
3184
|
5184 |
0 |
unless $hidden |
|
3185
|
648 |
4536 |
if $fieldInfo->{'FlatName'} |
|
3187
|
165 |
5019 |
if $fieldInfo->{'Groups'} |
|
3193
|
2981 |
2518 |
unless (defined $flatInfo->{'List'}) |
|
3194
|
1826 |
1155 |
if $fieldInfo->{'List'} or $tagInfo->{'List'} |
|
3198
|
177 |
5322 |
if ($fieldInfo->{'Groups'} and $fieldInfo->{'Groups'}{'2'}) { } |
|
|
91 |
5231 |
elsif ($strTable->{'GROUPS'} and $strTable->{'GROUPS'}{'2'}) { } |
|
3209
|
5254 |
245 |
unless $flatInfo->{'Struct'} |
|
3210
|
0 |
245 |
if length $flatID > 250 |
|
3229
|
12 |
107 |
unless $tagInfo->{'Writable'} and $tagInfo->{'Writable'} eq "lang-alt" |
|
3243
|
13 |
40 |
if $lang =~ /^([a-z]{2,3}|[xi])(-[a-z]{2})\b(.*)/i |
|
3260
|
0 |
0 |
unless defined $buff or $raf->Read($buff, 65536) |
|
3261
|
0 |
0 |
unless (defined $xmp) |
|
3263
|
0 |
0 |
unless ($lastBuff =~ /(<\?xpacket begin=)/g) |
|
3265
|
0 |
0 |
length $buff <= 15 ? : |
|
3274
|
0 |
0 |
if $pos > 0 |
|
3275
|
0 |
0 |
if ($xmp =~ /<\?xpacket end=['"][wr]['"]\?>/g) { } |
|
3279
|
0 |
0 |
unless $pos = rindex($xmp, "\0") + 1 |
|
3286
|
0 |
0 |
unless ($et->{'FileType'}) |
|
3312
|
0 |
0 |
unless $make =~ /$mk/i or $alt{$mk} and $make =~ /$alt{$mk}/i |
|
3321
|
0 |
0 |
unless %$convName |
|
3329
|
0 |
0 |
if ($info) |
|
3335
|
0 |
0 |
if ($mk eq 'Sony' and $focalLength && ($sf && $focalLength < $sf - 0.5 || $lf && $focalLength > $lf + 0.5) || $maxAv && ($sa && $maxAv < $sa - 0.15 || $la && $maxAv > $la + 0.15)) { } |
|
|
0 |
0 |
elsif ($maxAv) { } |
|
3351
|
0 |
0 |
if ($mk eq "Pentax" and $id =~ /^\d+$/) |
|
3357
|
0 |
0 |
if ($mk eq "Nikon") |
|
3359
|
0 |
0 |
if length $id & 1 |
|
3360
|
0 |
0 |
if $id =~ s/(..)/$1 /g |
|
3365
|
0 |
0 |
if $used{$lens} |
|
3367
|
0 |
0 |
$i ? : |
|
3386
|
124 |
311 |
if ($val =~ /^(\d{4})-(\d{2})-(\d{2})[T ](\d{2}:\d{2})(:\d{2})?\s*(\S*)$/) { } |
|
|
74 |
474 |
elsif (not $unsure and $val =~ /^(\d{4})(-\d{2}){0,2}/) { } |
|
3389
|
110 |
14 |
if wantarray |
|
3403
|
240 |
204 |
unless $val =~ m[^(-?\d+)/(-?\d+)$] |
|
3404
|
202 |
2 |
if ($2 != 0) { } |
|
|
0 |
2 |
elsif ($1) { } |
|
3422
|
0 |
1 |
unless @vals == 4 |
|
3424
|
0 |
4 |
unless &ConvertRational($_) |
|
3440
|
672 |
3077 |
$et->{'OPTIONS'}{'Struct'} ? : |
|
3441
|
17 |
3732 |
unless $tag |
|
3444
|
96 |
3636 |
if $Image::ExifTool::XMP::stdXlatNS{$ns} |
|
3447
|
3343 |
389 |
if ($info) { } |
|
|
10 |
379 |
elsif ($props->[0] eq 'svg:svg') { } |
|
3448
|
0 |
3343 |
unless $table = $info->{'SubDirectory'}{'TagTable'} |
|
3450
|
4 |
6 |
if (not $ns) { } |
|
|
6 |
0 |
elsif (not grep(/^rdf:/, @$props)) { } |
|
3452
|
0 |
4 |
if $tag eq "id" and $props->[1] eq "svg:metadata" |
|
3463
|
219 |
3513 |
if (not $ns and $grp0 ne 'XMP') { } |
|
|
4 |
3509 |
elsif ($grp0 eq 'XML' and not $table) { } |
|
3469
|
0 |
3509 |
if $grp0 eq "XML" |
|
3471
|
156 |
3353 |
unless $table |
|
3473
|
3347 |
162 |
if ($tagTablePtr->{'NAMESPACE'}) { } |
|
3477
|
162 |
0 |
unless (defined $xns) |
|
3480
|
0 |
162 |
unless ($ns =~ /^[A-Z_a-z\x80-\xff][-.0-9A-Z_a-z\x80-\xff]*$/ or $ns eq "") |
|
3484
|
0 |
0 |
unless $ns =~ /^[A-Z_a-z\x80-\xff]/ |
|
3492
|
14 |
148 |
if @structProps |
|
3497
|
3499 |
233 |
if $attrs |
|
3509
|
224 |
227 |
$t ? : |
|
3511
|
81 |
370 |
if defined $addedFlat |
|
3512
|
322 |
48 |
unless $ti = $tagTablePtr->{$t} |
|
3513
|
2 |
46 |
unless ref $ti eq "HASH" and $ti->{'Struct'} |
|
3516
|
23 |
23 |
if $addedFlat |
|
3523
|
23 |
181 |
if (defined $addedFlat) |
|
3528
|
8 |
33 |
unless $ti = $tagTablePtr->{$t} |
|
3529
|
0 |
33 |
unless ref $ti eq "HASH" |
|
3530
|
10 |
23 |
unless my $strTable = $ti->{'Struct'} |
|
3531
|
0 |
23 |
defined $ti->{'FlatName'} ? : |
|
3534
|
1 |
22 |
if $strTable->{'NAMESPACE'} or not exists $strTable->{'NAMESPACE'} |
|
3540
|
4 |
18 |
if $Image::ExifTool::XMP::stdXlatNS{$n} |
|
3544
|
0 |
22 |
if $xn eq ($tagTablePtr->{'NAMESPACE'} || '') |
|
3548
|
17 |
5 |
if (@structProps) |
|
3553
|
0 |
22 |
unless ref $tg eq "HASH" and $tg->{'SubDirectory'} |
|
3554
|
0 |
22 |
unless my $tbl = &GetTagTable($tg->{'SubDirectory'}{'TagTable'}) |
|
3556
|
0 |
22 |
if (not $sti or $sti->{'Flat'}) |
|
3564
|
0 |
0 |
unless my $ti3 = $tbl->{$t3} |
|
3565
|
0 |
0 |
unless ref $ti3 eq "HASH" and $ti3->{'Struct'} |
|
3566
|
0 |
0 |
unless &AddFlattenedTags($tbl, $t3) |
|
3570
|
0 |
0 |
unless $sti |
|
3573
|
15 |
7 |
if ($tagTablePtr->{$tagID}) { } |
|
3583
|
7 |
0 |
if $sti->{'Groups'} |
|
3589
|
181 |
23 |
unless ($tagInfo) |
|
3591
|
27 |
154 |
if ($et->{'ShortenXmpTags'}) |
|
3598
|
128 |
76 |
if $xns |
|
3599
|
84 |
120 |
if ($et->{'curURI'}{$ns} and $et->{'curURI'}{$ns} =~ m[^http://ns.exiftool.(?:ca|org)/(.*?)/(.*?)/]) |
|
3603
|
7 |
77 |
if ($grps{'1'} eq 'System') { } |
|
|
17 |
60 |
elsif ($grps{'1'} =~ /^\d/) { } |
|
3618
|
17 |
179 |
if (@$props > 2 and $props->[-1] =~ /^rdf:li \d+$/ and $props->[-2] =~ /^rdf:(Bag|Seq|Alt)$/) |
|
3621
|
12 |
5 |
if ($lang and $1 eq 'Alt') { } |
|
3630
|
188 |
16 |
unless ($tagTablePtr->{$tagID} and $tagTablePtr->{$tagID} eq $tagInfo) |
|
3632
|
188 |
0 |
unless $tagTablePtr->{$tagID} |
|
3634
|
0 |
7 |
if (not length $val and $attrs->{'rdf:parseType'} and $attrs->{'rdf:parseType'} eq "Resource") |
|
3635
|
0 |
0 |
unless $tagInfo->{'Struct'} |
|
3643
|
3503 |
229 |
if ($attrs) |
|
3645
|
0 |
3503 |
if ($enc and $enc =~ /base64/) |
|
3647
|
0 |
0 |
unless length $$val > 100 or $$val =~ /[\0-\x08\x0b\0x0c\x0e-\x1f]/ |
|
3650
|
53 |
3679 |
if (defined $lang and lc $lang ne "x-default") |
|
3653
|
53 |
0 |
if $langInfo |
|
3657
|
9 |
3723 |
if ($val =~ //gs) { } |
|
3676
|
1653 |
2079 |
if ($fmt or $new) |
|
3678
|
199 |
1454 |
if ($new || $fmt eq 'rational' and &ConvertRational($val)) { } |
|
3682
|
410 |
1044 |
if $new or $fmt eq "date" |
|
3683
|
2 |
1452 |
if ($stdDate and $added) |
|
3688
|
0 |
0 |
if ($et->{'XmpValidate'} and $fmt and $fmt eq "boolean" and not $val =~ /^True|False$/) |
|
3689
|
0 |
0 |
if ($val =~ /^true|false$/) { } |
|
3696
|
0 |
1653 |
if $new and length $val > 65536 |
|
3698
|
1 |
3731 |
if ($et->{'OPTIONS'}{'Verbose'}) |
|
3703
|
0 |
3732 |
unless my $key = $et->FoundTag($tagInfo, $val) |
|
3705
|
199 |
3533 |
if defined $rational |
|
3707
|
329 |
339 |
if (@structProps and @structProps > 1 || defined $structProps[0][1] and not $et->{'NO_STRUCT'}) |
|
3713
|
0 |
3732 |
if ($xmlGroups) { } |
|
|
3396 |
559 |
elsif ($ns and not $tagInfo->{'StaticGroup1'}) { } |
|
3720
|
0 |
188 |
if ($added and $et->{'OPTIONS'}{'Verbose'}) |
|
3722
|
0 |
0 |
if (@$added > 1) { } |
|
3733
|
2 |
3730 |
if ($tagInfo->{'SubDirectory'} and not $et->{'IsWriting'}) |
|
3735
|
1 |
1 |
ref $et->{'VALUE'}{$key} ? : |
|
3737
|
0 |
2 |
if $tagInfo->{'Encoding'} and $tagInfo->{'Encoding'} eq "Base64" |
|
3750
|
1 |
1 |
if $subdir->{'ByteOrder'} |
|
3780
|
164 |
7730 |
if ($et->{'XMPParseOpts'}) { } |
|
3786
|
195 |
7699 |
unless $start |
|
3787
|
0 |
7894 |
unless $end |
|
3788
|
294 |
7600 |
unless $propList |
|
3792
|
294 |
7600 |
unless $blankInfo |
|
3803
|
4780 |
11487 |
if pos $$dataPt > $end - 4 |
|
3807
|
3037 |
8450 |
if not $$dataPt =~ m[<([?/]?)([-\w:.\x80-\xff]+|!--)([^>]*)>]gs or pos $$dataPt > $end |
|
3810
|
584 |
7866 |
if $1 |
|
3813
|
159 |
7707 |
if ($prop eq "!--") |
|
3814
|
159 |
0 |
if $attrs =~ /--$/ or $$dataPt =~ /-->/gs |
|
3821
|
7581 |
126 |
if (not $attrs =~ s[/$][]) { } |
|
3830
|
0 |
7903 |
if (not $$dataPt =~ m[<(/?)$prop([-\w:.\x80-\xff]*)(.*?(/?))>]gs or pos $$dataPt > $end) |
|
3836
|
38 |
7865 |
if $2 |
|
3837
|
7721 |
144 |
if ($1) |
|
3838
|
140 |
7581 |
if --$nesting |
|
3843
|
140 |
4 |
unless $4 |
|
3851
|
0 |
0 |
if ($et->{'EXCL_XMP_LOOKUP'} and not $isWriting and $prop =~ /^(.+):(.*)/) |
|
3853
|
0 |
0 |
if ($et->{'EXCL_XMP_LOOKUP'}{"xmp-${ns}:all"} or $et->{'EXCL_XMP_LOOKUP'}{"xmp-${ns}:$nm"} or $et->{'EXCL_XMP_LOOKUP'}{"xmp-all:$nm"}) |
|
3869
|
11539 |
631 |
if (length $attrs < 2000) { } |
|
3870
|
7695 |
3844 |
unless $attrs =~ /(\S+?)\s*=\s*(['"])/g |
|
3874
|
12 |
619 |
unless $attrs =~ /=\s*(['"])/g |
|
3876
|
330 |
289 |
pos $attrs > 1000 ? : |
|
3878
|
0 |
619 |
unless $tmp =~ /(\S+)\s*=\s*$quote$/ |
|
3882
|
0 |
4463 |
unless $attrs =~ /$quote/g |
|
3885
|
3956 |
507 |
if ($attr =~ /(.*?):/) |
|
3886
|
1606 |
2350 |
if ($1 eq 'xmlns') { } |
|
3890
|
1587 |
19 |
unless $et->{'definedNS'}{$ns} |
|
3891
|
50 |
1556 |
unless ($stdNS) |
|
3894
|
15 |
35 |
unless $try =~ s[/$][] |
|
3896
|
0 |
50 |
if ($stdNS) { } |
|
|
0 |
50 |
elsif ($val =~ m[^http://ns.nikon.com/BASIC_PARAM]) { } |
|
3906
|
0 |
50 |
if ($good) |
|
3914
|
1556 |
50 |
if ($stdNS) { } |
|
|
0 |
50 |
elsif ($et->{'curNS'}{$val}) { } |
|
3916
|
209 |
1347 |
if ($stdNS ne $ns) { } |
|
|
2 |
1345 |
elsif ($xlatNS->{$ns}) { } |
|
3924
|
0 |
0 |
if $et->{'curNS'}{$val} ne $ns |
|
3930
|
2 |
48 |
if ($curURI->{$ns} or $Image::ExifTool::XMP::nsURI{$ns}) |
|
3940
|
213 |
1393 |
if (defined $newNS) |
|
3943
|
86 |
127 |
unless $saveNS |
|
3944
|
211 |
2 |
if (length $newNS) { } |
|
3950
|
208 |
0 |
unless /(.*?):/ and $1 eq $ns and $1 ne $newNS |
|
3961
|
98 |
2252 |
if $xlatNS->{$1} |
|
3968
|
7351 |
356 |
if ($prop =~ /(.*?):/) |
|
3971
|
244 |
7107 |
if $xlatNS->{$1} |
|
3974
|
1435 |
6272 |
if ($prop eq 'rdf:li') { } |
|
|
777 |
5495 |
elsif ($prop eq 'rdf:Description') { } |
|
|
0 |
5495 |
elsif ($prop eq 'xmp:xmpmeta') { } |
|
3976
|
0 |
1435 |
if ($nItems == 1000) |
|
3978
|
0 |
0 |
if ($isWriting) { } |
|
|
0 |
0 |
elsif (not $et->{'OPTIONS'}{'IgnoreMinorErrors'}) { } |
|
3996
|
798 |
71 |
unless ($nItems or grep /^rdf:li /, @$propList) |
|
4003
|
4 |
773 |
if (grep /^rdf:Description$/, @$propList) |
|
4011
|
0 |
0 |
if $et->{'XmpValidate'} |
|
4016
|
69 |
7638 |
if ($attrProc) |
|
4018
|
54 |
15 |
if (&$attrProc(\@attrs, \%attrs, \$prop, \$val)) |
|
4025
|
16 |
7691 |
if (defined $attrs{'rdf:nodeID'}) |
|
4033
|
7707 |
0 |
unless $parseResource |
|
4035
|
17 |
7690 |
if ($isSVG) { } |
|
|
13 |
7677 |
elsif ($et->{'XmpIgnoreProps'}) { } |
|
4037
|
17 |
0 |
unless ($et->{'OPTIONS'}{'Unknown'} > 1 or $et->{'OPTIONS'}{'Verbose'}) |
|
4038
|
0 |
17 |
if (@$propList > 1 and not $propList->[1] =~ /\b(metadata|desc|title)$/) |
|
4043
|
2 |
15 |
if ($prop eq "svg" or $prop eq "metadata") |
|
4049
|
2 |
36 |
unless @$propList |
|
4050
|
2 |
34 |
if $_ eq $propList->[0] |
|
4058
|
16 |
4328 |
unless defined $attrs{$shortName} |
|
4061
|
3940 |
388 |
if ($propName =~ /(.*?):(.*)/) { } |
|
|
250 |
138 |
elsif ($prop =~ /(\S*?):/) { } |
|
4075
|
763 |
3565 |
if ($propName eq "rdf:about") |
|
4076
|
478 |
285 |
if (not $et->{'XmpAbout'}) { } |
|
|
0 |
285 |
elsif ($et->{'XmpAbout'} ne $attrs{$shortName}) { } |
|
4079
|
0 |
0 |
if ($isWriting) { } |
|
|
0 |
0 |
elsif ($et->{'XmpValidate'}) { } |
|
4081
|
0 |
0 |
unless ($et->{'WAS_WARNED'}{$str}) |
|
4090
|
1268 |
3060 |
if ($isWriting) |
|
4092
|
360 |
908 |
if ($ns eq 'xmlns') { } |
|
|
211 |
697 |
elsif ($recognizedAttrs{$propName}) { } |
|
4094
|
291 |
69 |
unless ($stdNS and $stdNS eq 'x' || $stdNS eq 'iX') |
|
4096
|
288 |
3 |
unless defined $nsUsed->{$name} |
|
4107
|
205 |
837 |
if ($ignoreNamespace{$ns} or $ignoreProp{$prop} or $ignoreEtProp{$propName}) |
|
4110
|
479 |
2441 |
if (ref $recognizedAttrs{$propName} and $shortVal) |
|
4113
|
247 |
232 |
unless (defined $et->{'VALUE'}{$name} and $et->{'VALUE'}{$name} eq $tval) |
|
4122
|
4 |
833 |
if (defined $nodeID) { } |
|
|
521 |
312 |
elsif ($isWriting) { } |
|
4127
|
0 |
312 |
if $et->{'XmpValidate'} |
|
4133
|
1252 |
6455 |
if ($isWriting) { } |
|
4134
|
599 |
653 |
if (&ParseXMPElement($et, $tagTablePtr, $dataPt, $valStart, $valEnd, $propList, $blankInfo)) { } |
|
|
635 |
18 |
elsif (not $shorthand or $valEnd != $valStart) { } |
|
4139
|
0 |
599 |
if $ignored |
|
4143
|
8 |
627 |
if ($prop eq "rdf:Description") |
|
4146
|
13 |
622 |
if (defined $nodeID) { } |
|
4154
|
3701 |
2754 |
if ($valStart == $valEnd or not &ParseXMPElement($et, $tagTablePtr, $dataPt, $valStart, $valEnd, $propList, $blankInfo)) |
|
4159
|
3640 |
61 |
unless (defined $val) |
|
4162
|
16 |
3624 |
if ($prop eq "rdf:Description" and $val) |
|
4167
|
18 |
50 |
if ($val eq "" and $attrs =~ /\brdf:(?:value|resource)=(['"])(.*?)\1/ || $attrs =~ /\brdf:about=(['"])(.*?)\1/) |
|
4176
|
3684 |
17 |
if (length $val or not $shorthand) |
|
4178
|
0 |
3684 |
unless defined $lastProp |
|
4179
|
13 |
3671 |
if (defined $nodeID) { } |
|
|
8 |
3663 |
elsif ($lastProp eq 'rdf:type' and $wasEmpty) { } |
|
|
0 |
3663 |
elsif ($lastProp =~ /^et:(desc|prt|val)$/ and $count || $1 eq 'desc') { } |
|
4187
|
0 |
3663 |
if $et->{'XmpValidate'} |
|
4193
|
7707 |
0 |
unless $parseResource |
|
4197
|
0 |
7707 |
if ($et->{'XmpValidate'}) |
|
4199
|
0 |
0 |
if $et->{'definedNS'}{$_} or $_ eq "xml" |
|
4200
|
0 |
0 |
if (defined $et->{'definedNS'}{$_}) { } |
|
4213
|
77 |
7630 |
if $start >= $end |
|
4220
|
4 |
7890 |
if ($processBlankInfo and %{$blankInfo->{'Prop'};}) |
|
4225
|
86 |
7808 |
if $saveNS |
|
4265
|
7 |
2 |
if ($Image::ExifTool::MWG::strict || $et->{'OPTIONS'}{'Validate'} and not $et->{'XMP_CAPTURE'} || $et->{'DOC_NUM'} and ($dirInfo->{'DirName'} || '') eq 'XMP' || $et->{'FILE_TYPE'} eq 'XMP') |
|
4269
|
0 |
7 |
if $et->{'OPTIONS'}{'Validate'} |
|
4271
|
0 |
0 |
if ($nonStd and $Image::ExifTool::MWG::strict) |
|
4275
|
0 |
7 |
if ($nonStd) { } |
|
|
7 |
0 |
elsif (not $dirInfo->{'IsExtended'}) { } |
|
4278
|
0 |
7 |
if $et->{'DIR_COUNT'}{'XMP'} |
|
4282
|
233 |
85 |
if ($dataPt) { } |
|
4288
|
0 |
233 |
if ($$dataPt =~ /\G((\0\0)?\xfe\xff|\xff\xfe(\0\0)?|\xef\xbb\xbf)\0*<\0*\?\0*x\0*p\0*a\0*c\0*k\0*e\0*t/g) { } |
|
4293
|
0 |
233 |
if ($$dataPt =~ /\G((\0\0)?\xfe\xff|\xff\xfe(\0\0)?|\xef\xbb\xbf)\0*<\0*\?\0*x\0*m\0*l\0* /g) |
|
4295
|
0 |
0 |
$tmp =~ /\xfe\xff/ ? : |
|
4296
|
0 |
0 |
if $tmp =~ /\0\0/ |
|
4303
|
0 |
85 |
unless my $raf = $dirInfo->{'RAF'} |
|
4304
|
17 |
68 |
unless $raf->Read($buff, 256) |
|
4309
|
0 |
0 |
if ($buf2 =~ s/^\s*\s+//s) { } |
|
4311
|
0 |
0 |
if length $buf2 > 128 |
|
4314
|
0 |
0 |
if length $buf2 > 10000 |
|
4316
|
0 |
0 |
unless $raf->Read($buf3, 256) |
|
4323
|
54 |
14 |
if ($buf2 =~ /^\s*(<\?xpacket begin=|
|
|
4327
|
0 |
14 |
if ($buf2 =~ /^(\xfe\xff)(<\?xml|
|
|
|
0 |
14 |
elsif ($buf2 =~ /^(\xff\xfe)(<\?xml|
|
|
|
7 |
7 |
elsif ($buf2 =~ /^(\xef\xbb\xbf)?(<\?xml|
|
|
|
0 |
7 |
elsif ($buf2 =~ /^(\xfe\xff|\xff\xfe|\xef\xbb\xbf)(<\?xpacket begin=)/g) { } |
|
4338
|
0 |
7 |
if $1 |
|
4339
|
7 |
0 |
if ($2 eq '
|
|
|
0 |
0 |
elsif ($2 eq '
|
|
|
0 |
0 |
elsif ($2 eq '
|
|
4340
|
1 |
6 |
if (defined $fmt and not $fmt and $buf2 =~ /^[^\n\r]*[\n\r]+<\?aid /s) { } |
|
|
0 |
6 |
elsif ($buf2 =~ /
|
|
4342
|
0 |
1 |
if ($et->{'XMP_CAPTURE'}) |
|
4352
|
2 |
4 |
if ($buf2 =~ /
|
|
|
1 |
3 |
elsif ($buf2 =~ /]/) { } |
|
|
3 |
0 |
elsif ($buf2 =~ /
|
|
|
0 |
0 |
elsif ($buf2 =~ /]/) { } |
|
4353
|
0 |
2 |
if ($1 eq 'svg') { } |
|
|
2 |
0 |
elsif ($1 eq 'plist') { } |
|
|
0 |
0 |
elsif ($1 eq 'REDXIF') { } |
|
|
0 |
0 |
elsif ($1 ne 'fcpxml') { } |
|
4377
|
0 |
1 |
if ($isSVG and $et->{'XMP_CAPTURE'}) |
|
4381
|
0 |
7 |
if ($buff =~ /^\0\0/) { } |
|
|
0 |
7 |
elsif ($buff =~ /^..\0\0/s) { } |
|
|
7 |
0 |
elsif (not $fmt) { } |
|
4386
|
0 |
7 |
if ($buff =~ /^\0/) { } |
|
|
0 |
7 |
elsif ($buff =~ /^.\0/s) { } |
|
4394
|
3 |
58 |
if ($type) { } |
|
4395
|
2 |
1 |
if ($type eq "PLIST") |
|
4397
|
0 |
2 |
if $ext and $ext eq "MODD" |
|
4402
|
1 |
57 |
if ($isSVG) { } |
|
|
0 |
57 |
elsif ($isXML and not $hasXMP and not $isRDF) { } |
|
4407
|
0 |
0 |
if $ext and $ext eq "COS" |
|
4413
|
0 |
61 |
if $fast and $fast == 3 |
|
4415
|
1 |
60 |
if ($type and $type eq 'INX') { } |
|
4419
|
0 |
1 |
unless $raf->Seek(0, 0) |
|
4420
|
0 |
1 |
unless $raf->Read($buff, 65536) |
|
4422
|
1 |
0 |
if $buff =~ /
|
|
4423
|
0 |
0 |
unless $raf->Read($buf2, 65536) |
|
4428
|
1 |
0 |
if $buff =~ /<\?xpacket end="[rw]"\?>\]\]>/g |
|
4430
|
0 |
0 |
unless $raf->Read($buf2, 65536) |
|
4438
|
0 |
60 |
unless $raf->Seek(0, 2) |
|
4439
|
0 |
60 |
unless $size = $raf->Tell |
|
4440
|
0 |
60 |
unless $raf->Seek(0, 0) |
|
4441
|
0 |
60 |
unless $raf->Read($buff, $size) == $size |
|
4449
|
0 |
294 |
if ($double) |
|
4456
|
0 |
0 |
if ($double eq "\357\273\277") { } |
|
4461
|
0 |
0 |
if (length $double == 2) { } |
|
4462
|
0 |
0 |
$double eq "\376\377" ? : |
|
4464
|
0 |
0 |
$double eq "\000\000\376\377" ? : |
|
4468
|
0 |
0 |
if (&Image::ExifTool::GetWarning()) { } |
|
4469
|
0 |
0 |
unless $dirInfo->{'RAF'} |
|
4480
|
5 |
289 |
$dirInfo->{'BlockInfo'} ? : |
|
4482
|
40 |
5 |
if ($et->{'REQ_TAG_LOOKUP'}{lc $blockName} || $et->{'TAGS_FROM_FILE'} && !$et->{'EXCL_TAG_LOOKUP'}{lc $blockName} || $blockExtract and $et->{'FileType'} eq 'XMP' && $blockName eq 'XMP' || $dirInfo->{'DirName'} && $dirInfo->{'DirName'} eq $blockName) |
|
4488
|
0 |
40 |
if $blockExtract and $blockExtract > 1 |
|
4491
|
59 |
235 |
unless $tagTablePtr |
|
4492
|
1 |
293 |
if ($et->Options("Verbose") and not $et->{'XMP_CAPTURE'}) |
|
4493
|
0 |
1 |
$isSVG ? : |
|
4504
|
7 |
287 |
if ($isXML or $isRDF) { } |
|
|
217 |
70 |
elsif ($$dataPt =~ /\G\Q$begin\E/cg) { } |
|
|
3 |
67 |
elsif ($$dataPt =~ / $dirStart and pos $$dataPt < $dirEnd) { } |
|
4521
|
34 |
33 |
if ($$dataPt =~ /\G(\0)?\Q$begin\E\0./gs) { } |
|
4523
|
34 |
0 |
if ($1) { } |
|
4526
|
0 |
34 |
unless $$dataPt =~ /\G\xfe\xff/g |
|
4529
|
0 |
0 |
unless $$dataPt =~ /\G\0\xff\xfe/g |
|
4535
|
33 |
0 |
if (not $$dataPt =~ /\G(\0\0\0)?\Q$begin\E\0\0\0./gs) { } |
|
|
0 |
0 |
elsif ($1) { } |
|
4540
|
0 |
0 |
unless $$dataPt =~ /\G\0\0\xfe\xff/g |
|
4543
|
0 |
0 |
unless $$dataPt =~ /\G\0\0\0\xff\xfe\0\0/g |
|
4546
|
0 |
67 |
if $badEnc |
|
4549
|
0 |
0 |
if ($et->{'XMP_NO_XPACKET'} and $et->{'OPTIONS'}{'Validate'} and $stdPath{$et->{'FILE_TYPE'}} and $path eq $stdPath{$et->{'FILE_TYPE'}} and not $dirInfo->{'IsExtended'} and not $et->{'DOC_NUM'}) |
|
4555
|
34 |
260 |
if ($fmt) |
|
4557
|
33 |
1 |
if ($dirStart or $dirEnd != length $$dataPt) |
|
4562
|
34 |
0 |
if ($] >= 5.006001) { } |
|
4573
|
261 |
33 |
if $tagTablePtr eq \%Image::ExifTool::XMP::Main |
|
4579
|
1 |
293 |
if ($dirInfo->{'IgnoreProp'}) { } |
|
4587
|
36 |
258 |
if ($et->{'OPTIONS'}{'Struct'}) |
|
4588
|
21 |
15 |
if ($et->{'OPTIONS'}{'Struct'} eq '2') { } |
|
4600
|
5 |
289 |
if $dirInfo->{'BlockInfo'} or $dirInfo->{'NoStruct'} |
|
4603
|
294 |
0 |
if (&ParseXMPElement($et, $tagTablePtr, $dataPt, $dirStart, $dirEnd)) { } |
|
|
0 |
0 |
elsif ($dirInfo->{'DirName'} and $dirInfo->{'DirName'} eq 'XMP') { } |
|
4609
|
0 |
0 |
if ($xmp =~ /^ *\0*$/) { } |
|
4619
|
67 |
227 |
if $rtnVal and $dirInfo->{'RAF'} |
|
4622
|
28 |
266 |
if ($et->{'IsStruct'}) |
|
4623
|
28 |
0 |
unless ($dirInfo->{'NoStruct'}) |