| line |
true |
false |
branch |
|
26
|
41 |
23 |
unless defined $index |
|
32
|
9 |
55 |
if $index == -1 |
|
34
|
54 |
1 |
exists $references[$index] ? : |
|
52
|
128 |
9 |
if @Exif_refs |
|
77
|
1 |
7 |
unless defined $index |
|
86
|
0 |
8 |
if ref $segment |
|
87
|
8 |
0 |
if ($index == -1) |
|
108
|
0 |
33 |
unless defined $segment |
|
182
|
0 |
543 |
unless $$this{'name'} eq 'APP1' |
|
186
|
0 |
543 |
unless defined $identifier and $identifier eq $Image::MetaData::JPEG::Segment::APP1_EXIF_TAG |
|
246
|
0 |
154 |
unless $this->is_app1_Exif |
|
248
|
1 |
153 |
unless defined $what |
|
249
|
28 |
126 |
unless defined $type |
|
251
|
2 |
152 |
unless $type =~ /^NUMERIC$|^TEXTUAL$/ |
|
256
|
10 |
142 |
if ($what eq 'IMAGE_DATA') |
|
261
|
8 |
134 |
if ($what eq 'ALL') |
|
268
|
8 |
126 |
if ($what eq 'THUMBNAIL') |
|
270
|
6 |
2 |
$thumbnail ? : |
|
272
|
7 |
119 |
if $what eq 'THUMB_DATA' |
|
277
|
1 |
125 |
unless exists $WHAT2IFD{$what} |
|
286
|
27 |
98 |
unless (defined $dirref) |
|
293
|
13 |
112 |
unless $dirref |
|
304
|
90 |
22 |
if ($type eq 'TEXTUAL') |
|
308
|
819 |
49 |
exists $$table{$_} ? : |
|
|
335 |
868 |
!($_ =~ /^\d+$/) ? : |
|
385
|
0 |
197 |
unless $this->is_app1_Exif |
|
387
|
6 |
191 |
unless defined $action |
|
389
|
3 |
194 |
unless $action =~ /ADD|REPLACE/ |
|
391
|
1 |
193 |
unless defined $data |
|
395
|
16 |
177 |
if ($what eq 'IMAGE_DATA') |
|
399
|
5 |
172 |
if $what eq 'THUMBNAIL' |
|
401
|
0 |
172 |
if $what eq 'THUMB_DATA' |
|
404
|
0 |
172 |
unless ref $data eq 'HASH' |
|
406
|
4 |
168 |
unless exists $WHAT2IFD{$what} |
|
410
|
0 |
168 |
unless exists $Image::MetaData::JPEG::Segment::IFD_SUBDIRS{$path}{'__mandatory'} |
|
424
|
26 |
142 |
$action eq 'REPLACE' ? : |
|
432
|
0 |
168 |
if %$notempty |
|
439
|
152 |
16 |
unless $dontupdate |
|
467
|
0 |
5 |
unless ref $dataref |
|
470
|
2 |
3 |
if ('Image::MetaData::JPEG' eq ref $dataref) |
|
473
|
0 |
5 |
if ref $dataref ne 'SCALAR' |
|
477
|
1 |
4 |
if length $$dataref == 0 |
|
478
|
1 |
4 |
if not $type and 'Image::MetaData::JPEG'->new($dataref, '') |
|
480
|
1 |
4 |
unless $type |
|
499
|
4 |
0 |
if $dataref |
|
502
|
3 |
1 |
if ($type eq 'JPEG') |
|
509
|
0 |
3 |
if %$rej |
|
542
|
20700 |
306 |
if $_[0] =~ /$num/ |
|
544
|
36 |
270 |
$n =~ /$num/ ? : |
|
546
|
239 |
10264 |
grep({not /$num/;} @_) ? : |
|
566
|
0 |
172 |
unless $first eq $$this{'name'} |
|
577
|
291 |
0 |
if (exists $Image::MetaData::JPEG::Segment::IFD_SUBDIRS{$path}) |
|
584
|
124 |
167 |
if exists $revmapping{$name} |
|
602
|
0 |
339 |
unless ref $record_container |
|
604
|
168 |
171 |
ref $record_container eq 'HASH' ? : |
|
608
|
2362 |
788 |
unless exists $$record_hash{$$_{'key'}} |
|
649
|
0 |
339 |
unless defined $data and defined $path |
|
651
|
0 |
339 |
unless exists $Image::MetaData::JPEG::Segment::IFD_SUBDIRS{$path} |
|
653
|
0 |
339 |
unless $syntax |
|
659
|
1221 |
565 |
if defined $key_lookup and $key_lookup =~ /^\d+$/ |
|
663
|
186 |
1600 |
unless defined $key_lookup |
|
665
|
1 |
1599 |
unless defined $value |
|
667
|
0 |
1599 |
if ref $value eq 'CODE' |
|
669
|
1017 |
582 |
unless ref $value |
|
671
|
0 |
1599 |
unless ref $value eq 'ARRAY' |
|
676
|
27 |
1572 |
if $rule =~ /calculated/ |
|
678
|
51 |
1521 |
if defined $filter and not defined $fregex && $filter =~ /$fregex/ |
|
681
|
207 |
80 |
if $type == $Image::MetaData::JPEG::Segment::ASCII and @$value and not $$value[0] =~ /\000$/ |
|
686
|
16 |
93 |
if $@ |
|
|
109 |
1412 |
if (ref $rule eq 'CODE') { } |
|
687
|
66 |
1346 |
unless scalar @$value == grep({$_ =~ /^$rule$/s;} @$value) |
|
690
|
9 |
1430 |
unless my $record = 'Image::MetaData::JPEG::Record'->check_consistency($key, $type, $count, $value) |