| line |
true |
false |
branch |
|
798
|
0 |
18 |
unless (ref $source)
|
|
800
|
0 |
0 |
unless open F, $source
|
|
805
|
0 |
18 |
if (ref $source ne "SCALAR")
|
|
825
|
1 |
32 |
unless defined $substr_ifd
|
|
830
|
0 |
32 |
if $next_ifd > length $_
|
|
832
|
17 |
15 |
if ($next_ifd <= $ifd)
|
|
847
|
1803 |
33 |
if ($self->{'little_endian'})
|
|
871
|
71 |
0 |
unless $tiff_tags{$_[1]}
|
|
876
|
7 |
196 |
unless $tiff_tags{$_[1]} or $exif_tags{$_[1]}
|
|
882
|
0 |
71 |
unless $offset
|
|
884
|
0 |
71 |
if $self->{'seen_offset'}{$offset}++
|
|
888
|
1 |
70 |
if $offset > length($_) - 2
|
|
892
|
8 |
62 |
if ($entries > $max_entries)
|
|
904
|
2 |
811 |
if ($type == 0 or $type > @types)
|
|
914
|
0 |
811 |
unless $type
|
|
916
|
439 |
372 |
if ($count * $vlen <= 4) { }
|
|
|
0 |
372 |
elsif ($voff + $count * $vlen > length $_) { }
|
|
932
|
45 |
766 |
if ($type =~ /^S(SHORT|LONG|RATIONAL)/)
|
|
933
|
4 |
41 |
$1 eq 'SHORT' ? :
|
|
934
|
4 |
41 |
if $v[0] >= $max
|
|
937
|
222 |
589 |
@v > 1 ? :
|
|
938
|
193 |
618 |
if ($type =~ /^S?RATIONAL$/)
|
|
939
|
193 |
0 |
if (ref $val) { }
|
|
947
|
236 |
575 |
if ($type eq "ASCII" or $type eq "UNDEFINED")
|
|
949
|
14 |
222 |
if ($val =~ /\0[^\0]+\z/) { }
|
|
968
|
16 |
795 |
if ($tag eq "MakerNote")
|
|
974
|
0 |
6 |
if defined $_
|
|
975
|
3 |
13 |
unless exists $makernotes{$maker}
|
|
977
|
13 |
3 |
if (exists $makernotes{$maker})
|
|
983
|
0 |
13 |
if ($ifd_off == -1 and length $val >= 12) { }
|
|
|
0 |
13 |
elsif ($ifd_off == -2) { }
|
|
996
|
0 |
0 |
if (substr($val, 0, 5) eq "Nikon")
|
|
1009
|
233 |
565 |
if (ref $tag)
|
|
1010
|
0 |
233 |
unless ref $tag eq "HASH"
|
|
1011
|
25 |
208 |
if (my $sub = $tag->{'__SUBIFD__'})
|
|
1012
|
0 |
25 |
if $val < 0 or $val > length $_
|
|
1017
|
2 |
206 |
if (my $sub = $tag->{'__ARRAYOFFSET__'})
|
|
1018
|
2 |
0 |
if $self->{'tag_prefix'}
|
|
1020
|
38 |
44 |
if (exists $sub->{$i})
|
|
1021
|
21 |
17 |
if (ref $sub->{$i} eq 'HASH' and exists $sub->{$i}{'__TAG__'}) { }
|
|
1022
|
13 |
8 |
if (exists $sub->{$i}{$val->[$i]}) { }
|
|
1041
|
41 |
165 |
if defined $tag->{'DECODER'}
|
|
1042
|
165 |
41 |
if exists $tag->{$val}
|
|
1046
|
67 |
704 |
if $self->{'tag_prefix'}
|
|
1051
|
26 |
745 |
if $tag eq "Make" or $tag eq "Model"
|
|
1072
|
48 |
0 |
if defined $v{$_}
|
|
1083
|
13 |
0 |
if $v{$val}
|
|
1095
|
12 |
0 |
if $v{$val}
|
|
1121
|
106 |
0 |
if ($self->[1]) { }
|