Branch Coverage

blib/lib/Image/MetaData/JPEG/parsers/app1_exif.pl
Criterion Covered Total %
branch 79 94 84.0


line true false branch
68 0 63 if $identifier ne $Image::MetaData::JPEG::Segment::APP1_EXIF_TAG
88 35 28 $ifd1_link ? :
92 35 28 if $ifd1_offset
96 32 31 if (defined $th_type)
98 0 32 if $th_type != $Image::MetaData::JPEG::Segment::APP1_TH_TIFF and $th_type != $Image::MetaData::JPEG::Segment::APP1_TH_JPEG
102 0 32 $th_type == $Image::MetaData::JPEG::Segment::APP1_TH_TIFF ? :
110 0 32 unless defined $thumb_link
118 1 31 if ($thumb_size > $remaining)
119 0 1 if $thumb_size - $remaining > 10
125 32 0 if $thumb_size > 0
162 0 67 unless defined $offset
164 65 2 unless defined $dirref
175 0 67 if $endianness ne $Image::MetaData::JPEG::Segment::BIG_ENDIAN and $endianness ne $Image::MetaData::JPEG::Segment::LITTLE_ENDIAN
182 0 67 if $signature != $Image::MetaData::JPEG::Segment::APP1_TIFF_SIG
242 0 239 unless defined $offset
244 63 176 unless defined $next
254 233 6 if $next < 2
264 0 232 $next > 1 ? :
266 0 232 if $next and $next_link
305 226 6 if (exists $Image::MetaData::JPEG::Segment::IFD_SUBDIRS{$path})
310 510 170 unless my $record = $this->search_record($tag, $dirref)
316 0 170 if $new_offset < $old_offset
320 44 126 $tag == $Image::MetaData::JPEG::Segment::MAKERNOTE_TAG ? :
335 340 2409 unless not $$_{'extra'}
382 44 2608 if $tag == $Image::MetaData::JPEG::Segment::MAKERNOTE_TAG
389 855 1747 if $size == 0
393 1483 1119 $size < 5 ? :
399 1119 1483 if ($size > 4)
400 17 1102 if ($$pred[0]) { }
401 14 3 defined $$pred[2] ? :
403 1 1101 if $doffset < $$pred[1]
432 0 44 unless $dirnames =~ /^IFD0\@SubIFD\@[^\@]*$/
443 762 514 if $mknt_found
447 71 443 if exists $$hash{'ignore'}
454 46 397 $mknt_size < 50 ? :
456 394 49 unless $mknt_maker =~ /$format_maker/
457 5 44 unless $incipit =~ /$format_signature/
472 2 9 $it_looks_big_endian ? :
33 11 exists $$hash{'endianness'} ? :
476 2 42 exists $$hash{'nonext'} ? :
480 2 42 exists $$hash{'mkntstart'} ? :
484 2 42 if (exists $$hash{'mkntTIFF'})
505 36 8 if (exists $$hash{'nonIFD'}) { }
509 0 36 unless $format =~ /unknown/ or $data_offset == $mknt_offset + $mknt_size
520 3 5 if $@
521 2 6 if $@
526 2 42 if $@