| line |
true |
false |
branch |
|
1008
|
0 |
0 |
if $dirLen < 16 |
|
1010
|
0 |
0 |
unless ($ee) |
|
1015
|
0 |
0 |
$endian eq "#\cA" ? : |
|
1018
|
0 |
0 |
if ($dirName eq "RicohRDTG") |
|
1019
|
0 |
0 |
if ($ee < 2) |
|
1024
|
0 |
0 |
if $len > 8 |
|
1026
|
0 |
0 |
if ($count * $len + 16 > $dirLen) |
|
1035
|
0 |
0 |
if defined $rdtg |
|
1059
|
0 |
0 |
if $data =~ /^\0/ |
|
1062
|
0 |
0 |
unless ($data =~ /^(Rev|Rv)/) |
|
1070
|
0 |
0 |
if ($verbose) |
|
1076
|
0 |
0 |
unless ($tagInfo) |
|
1077
|
0 |
0 |
unless $et->{'OPTIONS'}{'Unknown'} |
|
1104
|
0 |
20 |
if $verbose |
|
1105
|
0 |
20 |
if $dirLen < 20 |
|
1107
|
0 |
20 |
if $byteOrder eq "\0\0" |
|
1108
|
0 |
20 |
unless &SetByteOrder($byteOrder) |
|
1111
|
0 |
20 |
if ($rmetaNum != 0) |
|
1116
|
0 |
0 |
if $dirLen < 14 |
|
1117
|
0 |
0 |
if ($$dataPt =~ /^.{20}BARCODE/s) { } |
|
|
0 |
0 |
elsif ($$dataPt =~ /^.{18}ASCII/s) { } |
|
1123
|
0 |
0 |
unless $val =~ s/(\d+),// and length $val >= $1 |
|
1125
|
0 |
0 |
unless length $val > $1 |
|
1128
|
0 |
0 |
if @codes |
|
1135
|
0 |
0 |
if $audioLen + 14 > $dirLen |
|
1137
|
0 |
0 |
if ($audioLen >= 4 and substr($buff, 0, 4) eq 'RIFF') { } |
|
|
0 |
0 |
elsif ($et->{'VALUE'}{'SoundFile'}) { } |
|
1151
|
0 |
20 |
if $numEntries > 100 |
|
1157
|
0 |
80 |
unless $size |
|
1160
|
0 |
80 |
if ($size < 0 or $pos + $size > $dataLen) |
|
1165
|
0 |
80 |
if ($verbose) |
|
1169
|
20 |
60 |
if ($type == 1) { } |
|
|
20 |
40 |
elsif ($type == 2 or $type == 18) { } |
|
|
20 |
20 |
elsif ($type == 3) { } |
|
|
0 |
20 |
elsif ($type != 16) { } |
|
1177
|
0 |
20 |
if ($size < $numEntries * 2) { } |
|
1182
|
20 |
0 |
$byteOrder eq 'MM' ? : |
|
1190
|
0 |
20 |
unless @tags or @vals |
|
1191
|
0 |
20 |
unless $valPos |
|
1198
|
0 |
100 |
unless defined $val |
|
1199
|
0 |
100 |
unless (defined $tag and length $tag) |
|
1200
|
0 |
0 |
unless length $val |
|
1205
|
0 |
100 |
unless length $name |
|
1208
|
100 |
0 |
if ($tagInfo) { } |
|
1210
|
0 |
100 |
unless ref $tagInfo->{'PrintConv'} eq "HASH" |
|
1217
|
0 |
100 |
unless defined $num |
|
1219
|
100 |
0 |
length $val ? : |
|
1220
|
0 |
100 |
if ($verbose) |
|
1222
|
0 |
0 |
if (length $val) { } |
|
|
0 |
0 |
elsif ($numPos) { } |
|
1227
|
0 |
0 |
if %datParms |