Branch Coverage

blib/lib/Image/ExifTool/Ricoh.pm
Criterion Covered Total %
branch 28 86 32.5


line true false branch
951 0 0 if $data =~ /^\0/
953 0 0 unless ($data =~ /^(Rev|Rv)/)
961 0 0 if ($verbose)
967 0 0 unless ($tagInfo)
968 0 0 unless $et->{'OPTIONS'}{'Unknown'}
995 0 20 if $verbose
996 0 20 if $dirLen < 20
998 0 20 if $byteOrder eq "\0\0"
999 0 20 unless &SetByteOrder($byteOrder)
1002 0 20 if ($rmetaNum != 0)
1007 0 0 if $dirLen < 14
1008 0 0 if ($$dataPt =~ /^.{20}BARCODE/s) { }
0 0 elsif ($$dataPt =~ /^.{18}ASCII/s) { }
1014 0 0 unless $val =~ s/(\d+),// and length $val >= $1
1016 0 0 unless length $val > $1
1019 0 0 if @codes
1026 0 0 if $audioLen + 14 > $dirLen
1028 0 0 if ($audioLen >= 4 and substr($buff, 0, 4) eq 'RIFF') { }
0 0 elsif ($et->{'VALUE'}{'SoundFile'}) { }
1042 0 20 if $numEntries > 100
1048 0 80 unless $size
1051 0 80 if ($size < 0 or $pos + $size > $dataLen)
1056 0 80 if ($verbose)
1060 20 60 if ($type == 1) { }
20 40 elsif ($type == 2 or $type == 18) { }
20 20 elsif ($type == 3) { }
0 20 elsif ($type != 16) { }
1068 0 20 if ($size < $numEntries * 2) { }
1073 20 0 $byteOrder eq 'MM' ? :
1081 0 20 unless @tags or @vals
1082 0 20 unless $valPos
1089 0 100 unless defined $val
1090 0 100 unless (defined $tag and length $tag)
1091 0 0 unless length $val
1096 0 100 unless length $name
1099 100 0 if ($tagInfo) { }
1101 0 100 unless ref $tagInfo->{'PrintConv'} eq "HASH"
1108 0 100 unless defined $num
1110 100 0 length $val ? :
1111 0 100 if ($verbose)
1113 0 0 if (length $val) { }
0 0 elsif ($numPos) { }
1118 0 0 if %datParms