| line |
true |
false |
branch |
|
83
|
0 |
4 |
if (ref $_[0] eq 'HASH') { } |
|
|
0 |
4 |
elsif (ref $_[0] eq 'ARRAY') { } |
|
|
4 |
0 |
elsif (not ref $_[0] and $#_ > 0) { } |
|
93
|
2 |
2 |
if ($$self{'filepath'}) |
|
97
|
3 |
1 |
if ($$self{'FILE'}) |
|
114
|
0 |
16 |
unless defined $tag and $tag == 28 and (defined $record and $record == 2) |
|
128
|
4 |
12 |
if (exists $Image::IPTCInfo::listdatasets{$dataset}) { } |
|
|
8 |
4 |
elsif (exists $Image::IPTCInfo::datasets{$dataset}) { } |
|
150
|
0 |
0 |
unless defined $object and ref $object |
|
166
|
1 |
0 |
unless (scalar keys %Image::IPTCInfo::datanames) |
|
173
|
1 |
0 |
unless (scalar keys %Image::IPTCInfo::listdatanames) |
|
187
|
0 |
1 |
if (not $dataset or $dataset == 0) |
|
188
|
0 |
0 |
if $^W |
|
199
|
0 |
3 |
if ($dataset == 0) |
|
200
|
0 |
0 |
if $^W |
|
205
|
3 |
0 |
unless (ref $$self{$key}) |