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/
954 0 0 unless ($data =~ /^(Rev|Rv)/)
962 0 0 if ($verbose)
968 0 0 unless ($tagInfo)
969 0 0 unless $et->{'OPTIONS'}{'Unknown'}
996 0 20 if $verbose
997 0 20 if $dirLen < 20
999 0 20 if $byteOrder eq "\0\0"
1000 0 20 unless &SetByteOrder($byteOrder)
1003 0 20 if ($rmetaNum != 0)
1008 0 0 if $dirLen < 14
1009 0 0 if ($$dataPt =~ /^.{20}BARCODE/s) { }
0 0 elsif ($$dataPt =~ /^.{18}ASCII/s) { }
1015 0 0 unless $val =~ s/(\d+),// and length $val >= $1
1017 0 0 unless length $val > $1
1020 0 0 if @codes
1027 0 0 if $audioLen + 14 > $dirLen
1029 0 0 if ($audioLen >= 4 and substr($buff, 0, 4) eq 'RIFF') { }
0 0 elsif ($et->{'VALUE'}{'SoundFile'}) { }
1043 0 20 if $numEntries > 100
1049 0 80 unless $size
1052 0 80 if ($size < 0 or $pos + $size > $dataLen)
1057 0 80 if ($verbose)
1061 20 60 if ($type == 1) { }
20 40 elsif ($type == 2 or $type == 18) { }
20 20 elsif ($type == 3) { }
0 20 elsif ($type != 16) { }
1069 0 20 if ($size < $numEntries * 2) { }
1074 20 0 $byteOrder eq 'MM' ? :
1082 0 20 unless @tags or @vals
1083 0 20 unless $valPos
1090 0 100 unless defined $val
1091 0 100 unless (defined $tag and length $tag)
1092 0 0 unless length $val
1097 0 100 unless length $name
1100 100 0 if ($tagInfo) { }
1102 0 100 unless ref $tagInfo->{'PrintConv'} eq "HASH"
1109 0 100 unless defined $num
1111 100 0 length $val ? :
1112 0 100 if ($verbose)
1114 0 0 if (length $val) { }
0 0 elsif ($numPos) { }
1119 0 0 if %datParms