| line |
true |
false |
branch |
|
2705
|
4410 |
154 |
unless $conv |
|
2720
|
0 |
0 |
if ($str =~ /[\0-\x1f]/ or &Image::ExifTool::IsUTF8(\$str) < 0) |
|
2750
|
122 |
109 |
unless (defined $val) |
|
2751
|
112 |
10 |
if ($ch =~ /^#x([0-9a-fA-F]+)$/) { } |
|
|
10 |
0 |
elsif ($ch =~ /^#(\d+)$/) { } |
|
2759
|
77 |
154 |
if $val < 128 |
|
2760
|
154 |
0 |
$] >= 5.006001 ? : |
|
2761
|
0 |
154 |
if $enc and $enc ne "UTF8" |
|
2776
|
1326 |
25 |
unless $$strPt =~ /([\x80-\xff])/g |
|
2780
|
25 |
0 |
if ($ch >= 194 and $ch < 248) |
|
2781
|
0 |
0 |
$ch < 240 ? : |
|
|
25 |
0 |
$ch < 224 ? : |
|
2782
|
25 |
0 |
if ($$strPt =~ /\G([\x80-\xbf]{$n})/g) |
|
2783
|
25 |
0 |
if $n == 1 |
|
2784
|
0 |
0 |
if ($n == 2) { } |
|
2785
|
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 |
|
2790
|
0 |
0 |
unless $ch == 240 and (ord $1 & 240) == 128 or $ch == 244 and ord $1 > 143 or $ch > 244 |
|
2796
|
0 |
0 |
unless defined $bad |
|
2832
|
7 |
1 |
if ($i < $len) |
|
2852
|
65910 |
544 |
$prop =~ /(.*?):(.*)/ ? : |
|
2853
|
38804 |
27650 |
if ($ignoreNamespace{$ns} or $ignoreProp{$prop}) { } |
|
2856
|
38804 |
0 |
unless ($prop =~ /^rdf:(_\d+)$/) |
|
2858
|
439 |
2760 |
if ($structProps and @$structProps and $prop =~ /^rdf:li (\d+)$/) |
|
2863
|
0 |
0 |
if defined $tag |
|
2867
|
292 |
27358 |
unless ($nm =~ /[a-z]/) |
|
2871
|
55 |
0 |
if (ref $info eq "HASH" and $info->{'SubDirectory'}) |
|
2874
|
277 |
15 |
unless ($table and $table->{$nm}) |
|
2879
|
11473 |
16177 |
if (defined $tag) { } |
|
2885
|
1378 |
26272 |
if ($structProps) |
|
2887
|
460 |
918 |
if $nsList |
|
2891
|
16468 |
11182 |
unless $namespace |
|
2893
|
3800 |
12394 |
if (wantarray) { } |
|
2907
|
508 |
28 |
unless ref $table->{'NAMESPACE'} |
|
2911
|
0 |
28 |
if (ref $nsRef eq 'ARRAY') { } |
|
2919
|
0 |
28 |
if ($Image::ExifTool::XMP::nsURI{$ns} and $Image::ExifTool::XMP::nsURI{$ns} ne $nsRef->{$ns}) |
|
2943
|
5046 |
0 |
if (defined $tagID) { } |
|
2948
|
0 |
0 |
unless ref $tagInfo eq "HASH" and $tagInfo->{'Struct'} |
|
2958
|
4532 |
514 |
if $tagInfo->{'Flattened'} |
|
2962
|
0 |
514 |
unless (ref $strTable) |
|
2964
|
0 |
0 |
unless $strTable = $Image::ExifTool::UserDefined::xmpStruct{$strTable} |
|
2965
|
0 |
0 |
unless $strTable->{'STRUCT_NAME'} |
|
2971
|
155 |
359 |
defined $tagInfo->{'FlatName'} ? : |
|
2975
|
283 |
231 |
if $tagInfo->{'Groups'} |
|
2976
|
231 |
283 |
unless $tagG2 |
|
2979
|
1087 |
4926 |
if $Image::ExifTool::XMP::specialStruct{$field} |
|
2981
|
5 |
4921 |
if $fieldInfo->{'LangCode'} |
|
2982
|
44 |
4877 |
if $fieldInfo->{'Struct'} and $noSubStruct |
|
2988
|
314 |
4563 |
if ($flatInfo) { } |
|
2989
|
0 |
314 |
unless ref $flatInfo eq "HASH" |
|
2991
|
4 |
310 |
unless (defined $flatInfo->{'Flat'}) |
|
2992
|
4 |
0 |
if $flatInfo->{'NotFlat'} |
|
2993
|
0 |
0 |
if $Image::ExifTool::debug |
|
3000
|
33 |
226 |
if $_ eq "PropertyPath" or defined $flatInfo->{$_} |
|
3002
|
12 |
214 |
$_ eq 'Groups' ? : |
|
3006
|
59 |
251 |
if $flatInfo->{'List'} |
|
3011
|
616 |
3947 |
if $fieldInfo->{'FlatName'} |
|
3013
|
165 |
4398 |
if $fieldInfo->{'Groups'} |
|
3019
|
2681 |
2192 |
unless (defined $flatInfo->{'List'}) |
|
3020
|
1674 |
1007 |
if $fieldInfo->{'List'} or $tagInfo->{'List'} |
|
3024
|
177 |
4696 |
if ($fieldInfo->{'Groups'} and $fieldInfo->{'Groups'}{'2'}) { } |
|
|
84 |
4612 |
elsif ($strTable->{'GROUPS'} and $strTable->{'GROUPS'}{'2'}) { } |
|
3035
|
4657 |
216 |
unless $flatInfo->{'Struct'} |
|
3036
|
0 |
216 |
if length $flatID > 250 |
|
3055
|
8 |
99 |
unless $tagInfo->{'Writable'} and $tagInfo->{'Writable'} eq "lang-alt" |
|
3069
|
13 |
40 |
if $lang =~ /^([a-z]{2,3}|[xi])(-[a-z]{2})\b(.*)/i |
|
3086
|
0 |
0 |
unless defined $buff or $raf->Read($buff, 65536) |
|
3087
|
0 |
0 |
unless (defined $xmp) |
|
3089
|
0 |
0 |
unless ($lastBuff =~ /(<\?xpacket begin=)/g) |
|
3091
|
0 |
0 |
length $buff <= 15 ? : |
|
3100
|
0 |
0 |
if $pos > 0 |
|
3101
|
0 |
0 |
if ($xmp =~ /<\?xpacket end=['"][wr]['"]\?>/g) { } |
|
3105
|
0 |
0 |
unless $pos = rindex($xmp, "\0") + 1 |
|
3112
|
0 |
0 |
unless ($et->{'FileType'}) |
|
3138
|
0 |
0 |
unless $make =~ /$mk/i or $alt{$mk} and $make =~ /$alt{$mk}/i |
|
3147
|
0 |
0 |
unless %$convName |
|
3155
|
0 |
0 |
if ($info) |
|
3161
|
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) { } |
|
3177
|
0 |
0 |
if ($mk eq "Pentax" and $id =~ /^\d+$/) |
|
3183
|
0 |
0 |
if ($mk eq "Nikon") |
|
3185
|
0 |
0 |
if length $id & 1 |
|
3186
|
0 |
0 |
if $id =~ s/(..)/$1 /g |
|
3191
|
0 |
0 |
if $used{$lens} |
|
3193
|
0 |
0 |
$i ? : |
|
3212
|
119 |
304 |
if ($val =~ /^(\d{4})-(\d{2})-(\d{2})[T ](\d{2}:\d{2})(:\d{2})?\s*(\S*)$/) { } |
|
|
73 |
462 |
elsif (not $unsure and $val =~ /^(\d{4})(-\d{2}){0,2}/) { } |
|
3228
|
234 |
204 |
unless $val =~ m[^(-?\d+)/(-?\d+)$] |
|
3229
|
202 |
2 |
if ($2 != 0) { } |
|
|
0 |
2 |
elsif ($1) { } |
|
3247
|
0 |
1 |
unless @vals == 4 |
|
3249
|
0 |
4 |
unless &ConvertRational($_) |
|
3265
|
672 |
2987 |
$et->{'OPTIONS'}{'Struct'} ? : |
|
3266
|
17 |
3642 |
unless $tag |
|
3269
|
86 |
3556 |
if $Image::ExifTool::XMP::stdXlatNS{$ns} |
|
3272
|
3274 |
368 |
if ($info) { } |
|
|
9 |
359 |
elsif ($props->[0] eq 'svg:svg') { } |
|
3273
|
0 |
3274 |
unless $table = $info->{'SubDirectory'}{'TagTable'} |
|
3275
|
4 |
5 |
if (not $ns) { } |
|
|
5 |
0 |
elsif (not grep(/^rdf:/, @$props)) { } |
|
3277
|
0 |
4 |
if $tag eq "id" and $props->[1] eq "svg:metadata" |
|
3288
|
203 |
3439 |
if (not $ns and $grp0 ne 'XMP') { } |
|
|
4 |
3435 |
elsif ($grp0 eq 'XML' and not $table) { } |
|
3294
|
0 |
3435 |
if $grp0 eq "XML" |
|
3296
|
152 |
3283 |
unless $table |
|
3298
|
3278 |
157 |
if ($tagTablePtr->{'NAMESPACE'}) { } |
|
3302
|
157 |
0 |
unless (defined $xns) |
|
3305
|
0 |
157 |
unless ($ns =~ /^[A-Z_a-z\x80-\xff][-.0-9A-Z_a-z\x80-\xff]*$/ or $ns eq "") |
|
3309
|
0 |
0 |
unless $ns =~ /^[A-Z_a-z\x80-\xff]/ |
|
3317
|
14 |
143 |
if @structProps |
|
3322
|
3435 |
207 |
if $attrs |
|
3334
|
220 |
218 |
$t ? : |
|
3336
|
81 |
357 |
if defined $addedFlat |
|
3337
|
312 |
45 |
unless $ti = $tagTablePtr->{$t} |
|
3338
|
0 |
45 |
unless ref $ti eq "HASH" and $ti->{'Struct'} |
|
3341
|
22 |
23 |
if $addedFlat |
|
3348
|
23 |
173 |
if (defined $addedFlat) |
|
3353
|
8 |
33 |
unless $ti = $tagTablePtr->{$t} |
|
3354
|
0 |
33 |
unless ref $ti eq "HASH" |
|
3355
|
10 |
23 |
unless my $strTable = $ti->{'Struct'} |
|
3356
|
0 |
23 |
defined $ti->{'FlatName'} ? : |
|
3359
|
1 |
22 |
if $strTable->{'NAMESPACE'} or not exists $strTable->{'NAMESPACE'} |
|
3365
|
4 |
18 |
if $Image::ExifTool::XMP::stdXlatNS{$n} |
|
3369
|
0 |
22 |
if $xn eq ($tagTablePtr->{'NAMESPACE'} || '') |
|
3373
|
17 |
5 |
if (@structProps) |
|
3378
|
0 |
22 |
unless ref $tg eq "HASH" and $tg->{'SubDirectory'} |
|
3379
|
0 |
22 |
unless my $tbl = &GetTagTable($tg->{'SubDirectory'}{'TagTable'}) |
|
3381
|
0 |
22 |
if (not $sti or $sti->{'Flat'}) |
|
3389
|
0 |
0 |
unless my $ti3 = $tbl->{$t3} |
|
3390
|
0 |
0 |
unless ref $ti3 eq "HASH" and $ti3->{'Struct'} |
|
3391
|
0 |
0 |
unless &AddFlattenedTags($tbl, $t3) |
|
3395
|
0 |
0 |
unless $sti |
|
3404
|
22 |
0 |
if $sti->{'Groups'} |
|
3409
|
173 |
23 |
unless ($tagInfo) |
|
3411
|
27 |
146 |
if ($et->{'ShortenXmpTags'}) |
|
3418
|
122 |
74 |
if $xns |
|
3419
|
78 |
118 |
if ($et->{'curURI'}{$ns} and $et->{'curURI'}{$ns} =~ m[^http://ns.exiftool.(?:ca|org)/(.*?)/(.*?)/]) |
|
3423
|
20 |
58 |
if ($grps{'1'} =~ /^\d/) |
|
3435
|
17 |
171 |
if (@$props > 2 and $props->[-1] =~ /^rdf:li \d+$/ and $props->[-2] =~ /^rdf:(Bag|Seq|Alt)$/) |
|
3438
|
12 |
5 |
if ($lang and $1 eq 'Alt') { } |
|
3448
|
180 |
16 |
unless $tagTablePtr->{$tagID} |
|
3450
|
0 |
7 |
if (not length $val and $attrs->{'rdf:parseType'} and $attrs->{'rdf:parseType'} eq "Resource") |
|
3457
|
3439 |
203 |
if ($attrs) |
|
3459
|
1 |
3438 |
if ($enc and $enc =~ /base64/) |
|
3461
|
0 |
1 |
unless length $$val > 100 or $$val =~ /[\0-\x08\x0b\0x0c\x0e-\x1f]/ |
|
3464
|
53 |
3589 |
if (defined $lang and lc $lang ne "x-default") |
|
3467
|
53 |
0 |
if $langInfo |
|
3471
|
9 |
3633 |
if ($val =~ //gs) { } |
|
3490
|
1630 |
2012 |
if ($fmt or $new) |
|
3492
|
199 |
1431 |
if ($new || $fmt eq 'rational' and &ConvertRational($val)) { } |
|
3495
|
400 |
1031 |
if $new or $fmt eq "date" |
|
3497
|
0 |
0 |
if ($et->{'XmpValidate'} and $fmt and $fmt eq "boolean" and not $val =~ /^True|False$/) |
|
3498
|
0 |
0 |
if ($val =~ /^true|false$/) { } |
|
3505
|
0 |
1630 |
if $new and length $val > 65536 |
|
3508
|
0 |
3642 |
unless my $key = $et->FoundTag($tagInfo, $val) |
|
3510
|
199 |
3443 |
if defined $rational |
|
3512
|
329 |
339 |
if (@structProps and @structProps > 1 || defined $structProps[0][1] and not $et->{'NO_STRUCT'}) |
|
3518
|
0 |
3642 |
if ($xmlGroups) { } |
|
|
3326 |
523 |
elsif ($ns and not $tagInfo->{'StaticGroup1'}) { } |
|
3525
|
1 |
3641 |
if ($et->{'OPTIONS'}{'Verbose'}) |
|
3526
|
0 |
1 |
if ($added) |
|
3528
|
0 |
0 |
if (@$added > 1) { } |
|
3542
|
0 |
3642 |
if ($tagInfo->{'SubDirectory'} and not $et->{'IsWriting'}) |
|
3544
|
0 |
0 |
ref $et->{'VALUE'}{$key} ? : |
|
3546
|
0 |
0 |
if $tagInfo->{'Encoding'} and $tagInfo->{'Encoding'} eq "Base64" |
|
3557
|
0 |
0 |
if $subdir->{'ByteOrder'} |
|
3587
|
154 |
7581 |
if ($et->{'XMPParseOpts'}) { } |
|
3593
|
188 |
7547 |
unless $start |
|
3594
|
0 |
7735 |
unless $end |
|
3595
|
281 |
7454 |
unless $propList |
|
3599
|
281 |
7454 |
unless $blankInfo |
|
3610
|
4671 |
11269 |
if pos $$dataPt > $end - 4 |
|
3614
|
2989 |
8280 |
if not $$dataPt =~ m[<([?/]?)([-\w:.\x80-\xff]+|!--)([^>]*)>]gs or pos $$dataPt > $end |
|
3617
|
566 |
7714 |
if $1 |
|
3620
|
158 |
7556 |
if ($prop eq "!--") |
|
3621
|
158 |
0 |
if $attrs =~ /--$/ or $$dataPt =~ /-->/gs |
|
3628
|
7435 |
121 |
if (not $attrs =~ s[/$][]) { } |
|
3637
|
0 |
7757 |
if (not $$dataPt =~ m[<(/?)$prop([-\w:.\x80-\xff]*)(.*?(/?))>]gs or pos $$dataPt > $end) |
|
3643
|
38 |
7719 |
if $2 |
|
3644
|
7575 |
144 |
if ($1) |
|
3645
|
140 |
7435 |
if --$nesting |
|
3650
|
140 |
4 |
unless $4 |
|
3658
|
0 |
0 |
if ($et->{'EXCL_XMP_LOOKUP'} and not $isWriting and $prop =~ /^(.+):(.*)/) |
|
3660
|
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"}) |
|
3673
|
3816 |
483 |
if ($attr =~ /(.*?):/) |
|
3674
|
1541 |
2275 |
if ($1 eq 'xmlns') { } |
|
3678
|
1522 |
19 |
unless $et->{'definedNS'}{$ns} |
|
3679
|
46 |
1495 |
unless ($stdNS) |
|
3682
|
14 |
32 |
unless $try =~ s[/$][] |
|
3684
|
0 |
46 |
if ($stdNS) { } |
|
3692
|
0 |
46 |
if ($good) |
|
3700
|
1495 |
46 |
if ($stdNS) { } |
|
|
0 |
46 |
elsif ($et->{'curNS'}{$val}) { } |
|
3702
|
202 |
1293 |
if ($stdNS ne $ns) { } |
|
|
2 |
1291 |
elsif ($xlatNS->{$ns}) { } |
|
3710
|
0 |
0 |
if $et->{'curNS'}{$val} ne $ns |
|
3716
|
2 |
44 |
if ($curURI->{$ns} or $Image::ExifTool::XMP::nsURI{$ns}) |
|
3726
|
206 |
1335 |
if (defined $newNS) |
|
3729
|
79 |
127 |
unless $saveNS |
|
3730
|
204 |
2 |
if (length $newNS) { } |
|
3736
|
187 |
0 |
unless /(.*?):/ and $1 eq $ns and $1 ne $newNS |
|
3747
|
92 |
2183 |
if $xlatNS->{$1} |
|
3754
|
7211 |
345 |
if ($prop =~ /(.*?):/) |
|
3757
|
241 |
6970 |
if $xlatNS->{$1} |
|
3760
|
1422 |
6134 |
if ($prop eq 'rdf:li') { } |
|
|
756 |
5378 |
elsif ($prop eq 'rdf:Description') { } |
|
|
0 |
5378 |
elsif ($prop eq 'xmp:xmpmeta') { } |
|
3762
|
0 |
1422 |
if ($nItems == 1000) |
|
3764
|
0 |
0 |
if ($isWriting) { } |
|
|
0 |
0 |
elsif (not $et->{'OPTIONS'}{'IgnoreMinorErrors'}) { } |
|
3782
|
788 |
71 |
unless ($nItems or grep /^rdf:li /, @$propList) |
|
3789
|
4 |
752 |
if (grep /^rdf:Description$/, @$propList) |
|
3797
|
0 |
0 |
if $et->{'XmpValidate'} |
|
3802
|
58 |
7498 |
if ($attrProc) |
|
3804
|
53 |
5 |
if (&$attrProc(\@attrs, \%attrs, \$prop, \$val)) |
|
3811
|
16 |
7540 |
if (defined $attrs{'rdf:nodeID'}) |
|
3819
|
7556 |
0 |
unless $parseResource |
|
3821
|
16 |
7540 |
if ($isSVG) { } |
|
|
13 |
7527 |
elsif ($et->{'XmpIgnoreProps'}) { } |
|
3823
|
16 |
0 |
unless ($et->{'OPTIONS'}{'Unknown'} > 1 or $et->{'OPTIONS'}{'Verbose'}) |
|
3824
|
0 |
16 |
if (@$propList > 1 and not $propList->[1] =~ /\b(metadata|desc|title)$/) |
|
3829
|
2 |
14 |
if ($prop eq "svg" or $prop eq "metadata") |
|
3835
|
2 |
36 |
unless @$propList |
|
3836
|
2 |
34 |
if $_ eq $propList->[0] |
|
3844
|
16 |
4177 |
unless defined $attrs{$shortName} |
|
3847
|
3800 |
377 |
if ($propName =~ /(.*?):(.*)/) { } |
|
|
250 |
127 |
elsif ($prop =~ /(\S*?):/) { } |
|
3861
|
742 |
3435 |
if ($propName eq "rdf:about") |
|
3862
|
457 |
285 |
if (not $et->{'XmpAbout'}) { } |
|
|
0 |
285 |
elsif ($et->{'XmpAbout'} ne $attrs{$shortName}) { } |
|
3865
|
0 |
0 |
if ($isWriting) { } |
|
|
0 |
0 |
elsif ($et->{'XmpValidate'}) { } |
|
3867
|
0 |
0 |
unless ($et->{'WARNED_ONCE'}{$str}) |
|
3876
|
1232 |
2945 |
if ($isWriting) |
|
3878
|
344 |
888 |
if ($ns eq 'xmlns') { } |
|
|
205 |
683 |
elsif ($recognizedAttrs{$propName}) { } |
|
3880
|
278 |
66 |
unless ($stdNS and $stdNS eq 'x' || $stdNS eq 'iX') |
|
3882
|
275 |
3 |
unless defined $nsUsed->{$name} |
|
3891
|
2826 |
802 |
if ($ignoreNamespace{$ns} or $ignoreProp{$prop}) |
|
3894
|
470 |
2356 |
if (ref $recognizedAttrs{$propName} and $shortVal) |
|
3897
|
239 |
231 |
unless (defined $et->{'VALUE'}{$name} and $et->{'VALUE'}{$name} eq $tval) |
|
3906
|
4 |
798 |
if (defined $nodeID) { } |
|
|
512 |
286 |
elsif ($isWriting) { } |
|
3911
|
0 |
286 |
if $et->{'XmpValidate'} |
|
3917
|
1228 |
6328 |
if ($isWriting) { } |
|
3918
|
584 |
644 |
if (&ParseXMPElement($et, $tagTablePtr, $dataPt, $valStart, $valEnd, $propList, $blankInfo)) { } |
|
|
626 |
18 |
elsif (not $shorthand or $valEnd != $valStart) { } |
|
3923
|
0 |
584 |
if $ignored |
|
3927
|
8 |
618 |
if ($prop eq "rdf:Description") |
|
3930
|
13 |
613 |
if (defined $nodeID) { } |
|
3938
|
3633 |
2695 |
if ($valStart == $valEnd or not &ParseXMPElement($et, $tagTablePtr, $dataPt, $valStart, $valEnd, $propList, $blankInfo)) |
|
3943
|
3580 |
53 |
unless (defined $val) |
|
3946
|
16 |
3564 |
if ($prop eq "rdf:Description" and $val) |
|
3951
|
17 |
48 |
if ($val eq "" and $attrs =~ /\brdf:(?:value|resource)=(['"])(.*?)\1/ || $attrs =~ /\brdf:about=(['"])(.*?)\1/) |
|
3960
|
3620 |
13 |
if (length $val or not $shorthand) |
|
3962
|
0 |
3620 |
unless defined $lastProp |
|
3963
|
13 |
3607 |
if (defined $nodeID) { } |
|
|
8 |
3599 |
elsif ($lastProp eq 'rdf:type' and $wasEmpty) { } |
|
|
0 |
3599 |
elsif ($lastProp =~ /^et:(desc|prt|val)$/ and $count || $1 eq 'desc') { } |
|
3971
|
0 |
3599 |
if $et->{'XmpValidate'} |
|
3977
|
7556 |
0 |
unless $parseResource |
|
3981
|
0 |
7556 |
if ($et->{'XmpValidate'}) |
|
3983
|
0 |
0 |
if $et->{'definedNS'}{$_} or $_ eq "xml" |
|
3984
|
0 |
0 |
if (defined $et->{'definedNS'}{$_}) { } |
|
3997
|
75 |
7481 |
if $start >= $end |
|
4004
|
4 |
7731 |
if ($processBlankInfo and %{$blankInfo->{'Prop'};}) |
|
4009
|
79 |
7656 |
if $saveNS |
|
4049
|
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') |
|
4053
|
0 |
7 |
if $et->{'OPTIONS'}{'Validate'} |
|
4055
|
0 |
0 |
if ($nonStd and $Image::ExifTool::MWG::strict) |
|
4059
|
0 |
7 |
if ($nonStd) { } |
|
|
7 |
0 |
elsif (not $dirInfo->{'IsExtended'}) { } |
|
4062
|
0 |
7 |
if $et->{'DIR_COUNT'}{'XMP'} |
|
4066
|
221 |
83 |
if ($dataPt) { } |
|
4072
|
0 |
221 |
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 |
|
4076
|
0 |
83 |
unless my $raf = $dirInfo->{'RAF'} |
|
4077
|
16 |
67 |
unless $raf->Read($buff, 256) |
|
4082
|
0 |
0 |
if ($buf2 =~ s/^\s*\s+//s) { } |
|
4084
|
0 |
0 |
if length $buf2 > 128 |
|
4087
|
0 |
0 |
if length $buf2 > 10000 |
|
4089
|
0 |
0 |
unless $raf->Read($buf3, 256) |
|
4096
|
53 |
14 |
if ($buf2 =~ /^\s*(<\?xpacket begin=|
|
|
4100
|
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) { } |
|
4111
|
0 |
7 |
if $1 |
|
4112
|
7 |
0 |
if ($2 eq '
|
|
|
0 |
0 |
elsif ($2 eq '
|
|
|
0 |
0 |
elsif ($2 eq '
|
|
4113
|
1 |
6 |
if (defined $fmt and not $fmt and $buf2 =~ /^[^\n\r]*[\n\r]+<\?aid /s) { } |
|
|
0 |
6 |
elsif ($buf2 =~ /
|
|
4115
|
0 |
1 |
if ($et->{'XMP_CAPTURE'}) |
|
4125
|
2 |
4 |
if ($buf2 =~ /
|
|
|
1 |
3 |
elsif ($buf2 =~ /]/) { } |
|
|
3 |
0 |
elsif ($buf2 =~ /
|
|
|
0 |
0 |
elsif ($buf2 =~ /]/) { } |
|
4126
|
0 |
2 |
if ($1 eq 'svg') { } |
|
|
2 |
0 |
elsif ($1 eq 'plist') { } |
|
|
0 |
0 |
elsif ($1 eq 'REDXIF') { } |
|
|
0 |
0 |
elsif ($1 ne 'fcpxml') { } |
|
4150
|
0 |
1 |
if ($isSVG and $et->{'XMP_CAPTURE'}) |
|
4154
|
0 |
7 |
if ($buff =~ /^\0\0/) { } |
|
|
0 |
7 |
elsif ($buff =~ /^..\0\0/s) { } |
|
|
7 |
0 |
elsif (not $fmt) { } |
|
4159
|
0 |
7 |
if ($buff =~ /^\0/) { } |
|
|
0 |
7 |
elsif ($buff =~ /^.\0/s) { } |
|
4167
|
3 |
57 |
if ($type) { } |
|
4168
|
2 |
1 |
if ($type eq "PLIST") |
|
4170
|
0 |
2 |
if $ext and $ext eq "MODD" |
|
4175
|
1 |
56 |
if ($isSVG) { } |
|
|
0 |
56 |
elsif ($isXML and not $hasXMP and not $isRDF) { } |
|
4180
|
0 |
0 |
if $ext and $ext eq "COS" |
|
4186
|
0 |
60 |
if $fast and $fast == 3 |
|
4188
|
1 |
59 |
if ($type and $type eq 'INX') { } |
|
4192
|
0 |
1 |
unless $raf->Seek(0, 0) |
|
4193
|
0 |
1 |
unless $raf->Read($buff, 65536) |
|
4195
|
1 |
0 |
if $buff =~ /
|
|
4196
|
0 |
0 |
unless $raf->Read($buf2, 65536) |
|
4201
|
1 |
0 |
if $buff =~ /<\?xpacket end="[rw]"\?>\]\]>/g |
|
4203
|
0 |
0 |
unless $raf->Read($buf2, 65536) |
|
4211
|
0 |
59 |
unless $raf->Seek(0, 2) |
|
4212
|
0 |
59 |
unless $size = $raf->Tell |
|
4213
|
0 |
59 |
unless $raf->Seek(0, 0) |
|
4214
|
0 |
59 |
unless $raf->Read($buff, $size) == $size |
|
4222
|
0 |
281 |
if ($double) |
|
4229
|
0 |
0 |
if ($double eq "\357\273\277") { } |
|
4234
|
0 |
0 |
if (length $double == 2) { } |
|
4235
|
0 |
0 |
$double eq "\376\377" ? : |
|
4237
|
0 |
0 |
$double eq "\000\000\376\377" ? : |
|
4241
|
0 |
0 |
if (&Image::ExifTool::GetWarning()) { } |
|
4253
|
5 |
276 |
$dirInfo->{'BlockInfo'} ? : |
|
4255
|
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) |
|
4261
|
0 |
40 |
if $blockExtract and $blockExtract > 1 |
|
4264
|
58 |
223 |
unless $tagTablePtr |
|
4265
|
1 |
280 |
if ($et->Options("Verbose") and not $et->{'XMP_CAPTURE'}) |
|
4266
|
0 |
1 |
$isSVG ? : |
|
4277
|
7 |
274 |
if ($isXML or $isRDF) { } |
|
|
207 |
67 |
elsif ($$dataPt =~ /\G\Q$begin\E/cg) { } |
|
|
1 |
66 |
elsif ($$dataPt =~ / $dirStart and pos $$dataPt < $dirEnd) { } |
|
4293
|
34 |
32 |
if ($$dataPt =~ /\G(\0)?\Q$begin\E\0./gs) { } |
|
4295
|
34 |
0 |
if ($1) { } |
|
4297
|
34 |
0 |
if $$dataPt =~ /\G\xfe\xff/g |
|
4299
|
0 |
0 |
if $$dataPt =~ /\G\0\xff\xfe/g |
|
4305
|
32 |
0 |
if (not $$dataPt =~ /\G(\0\0\0)?\Q$begin\E\0\0\0./gs) { } |
|
|
0 |
0 |
elsif ($1) { } |
|
4309
|
0 |
0 |
if $$dataPt =~ /\G\0\0\xfe\xff/g |
|
4311
|
0 |
0 |
if $$dataPt =~ /\G\0\0\0\xff\xfe\0\0/g |
|
4314
|
0 |
66 |
unless defined $fmt |
|
4317
|
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'}) |
|
4323
|
34 |
247 |
if ($fmt) |
|
4325
|
33 |
1 |
if ($dirStart or $dirEnd != length $$dataPt) |
|
4330
|
34 |
0 |
if ($] >= 5.006001) { } |
|
4341
|
249 |
32 |
if $tagTablePtr eq \%Image::ExifTool::XMP::Main |
|
4347
|
0 |
281 |
if ($dirInfo->{'IgnoreProp'}) { } |
|
4355
|
36 |
245 |
if ($et->{'OPTIONS'}{'Struct'}) |
|
4356
|
21 |
15 |
if ($et->{'OPTIONS'}{'Struct'} eq '2') { } |
|
4368
|
5 |
276 |
if $dirInfo->{'BlockInfo'} or $dirInfo->{'NoStruct'} |
|
4371
|
281 |
0 |
if (&ParseXMPElement($et, $tagTablePtr, $dataPt, $dirStart, $dirEnd)) { } |
|
|
0 |
0 |
elsif ($dirInfo->{'DirName'} and $dirInfo->{'DirName'} eq 'XMP') { } |
|
4377
|
0 |
0 |
if ($xmp =~ /^ *\0*$/) { } |
|
4387
|
66 |
215 |
if $rtnVal and $dirInfo->{'RAF'} |
|
4390
|
28 |
253 |
if ($et->{'IsStruct'}) |
|
4391
|
28 |
0 |
unless ($dirInfo->{'NoStruct'}) |