Branch Coverage

blib/lib/Image/ExifTool/CanonCustom.pm
Criterion Covered Total %
branch 33 70 47.1


line true false branch
2627 0 0 $val == 1 ? :
0 0 $val ? :
2632 0 29 if $val =~ /(\d+)/
2633 0 29 if $val =~ /on/i
2634 0 29 if $val =~ /off/i
2652 0 10 if $size < 2
2655 0 10 unless ($len == $size and $len >= 8)
2661 4 6 if ($write) { }
0 6 elsif ($verbose) { }
2671 0 26 if $pos + 12 > $end
2675 0 26 if $recLen < 8
2679 0 26 if ($recEnd > $end)
2683 0 26 if ($verbose and not $write)
2691 0 206 if $nextRec > $recEnd
2693 0 7 if ($tag == 1804 and $num == 102 and $nextRec + 8 < $recEnd)
2695 0 0 if ($tmp == 1807)
2702 72 134 if ($write) { }
2705 70 2 unless $newTags->{$tag}
2706 0 2 unless $tagInfo = $et->GetTagInfo($tagTablePtr, $tag, \$val, undef, $num)
2707 0 2 unless my $nvHash = $et->GetNewValueHash($tagInfo)
2708 0 2 unless $et->IsOverwriting($nvHash, $val)
2710 0 2 unless defined $newVal
2726 0 134 if ($tagInfo and not $oldInfo)
2732 0 26 if ($i != $recCount)
2737 0 10 if ($pos != $end)
2754 116 4 unless $et
2764 0 4 unless &ProcessCanonCustom2($et, \%dirInfo, $tagTablePtr)
2782 0 0 unless ($len == $size or $et->{'Model'} =~ /\bD60\b/ and $len + 2 == $size)
2786 0 9 if $verbose
2820 217 6 unless $et
2825 0 6 unless my $newData = substr($$dataPt, $dirStart, $dirLen)
2830 0 0 unless ($len == $dirLen or $et->{'Model'} =~ /\bD60\b/ and $len + 2 == $dirLen)
2840 54 0 unless $tagInfo
2843 0 0 unless $et->IsOverwriting($nvHash, $val)
2845 0 0 unless defined $newVal