| line |
true |
false |
branch |
|
144
|
0 |
6 |
unless {@_}->{'isisdb'} |
|
147
|
13 |
23 |
if defined {@_}->{$v} |
|
153
|
22 |
0 |
if $f =~ /\.(\w\w\w)$/ |
|
158
|
0 |
6 |
if $$self{'read_fdt'} |
|
161
|
0 |
12 |
unless ($$self{$ext . '_file'}) |
|
167
|
0 |
6 |
if ($$self{'debug'}) |
|
171
|
0 |
0 |
if (not $@) { } |
|
179
|
0 |
6 |
if ($$self{'read_fdt'} and -e $$self{'fdt_file'}) |
|
184
|
0 |
0 |
unless open my $fileFDT, $$self{'fdt_file'} |
|
189
|
0 |
0 |
if ($fieldzone) |
|
199
|
0 |
0 |
if (/^\*\*\*/) |
|
209
|
0 |
6 |
unless open $$self{'fileMST'}, $$self{'mst_file'} |
|
218
|
0 |
6 |
unless seek $$self{'fileMST'}, 4, 0 |
|
222
|
0 |
6 |
unless read $$self{'fileMST'}, $buff, 4 |
|
225
|
0 |
6 |
if $$self{'debug'} |
|
228
|
0 |
6 |
unless open $$self{'fileXRF'}, $$self{'xrf_file'} |
|
231
|
6 |
0 |
$self ? : |
|
270
|
7 |
22 |
if $mfn == $old_mfn |
|
272
|
0 |
22 |
if $$self{'debug'} |
|
277
|
0 |
22 |
if $$self{'debug'} |
|
288
|
0 |
22 |
unless ($pointer) |
|
289
|
0 |
0 |
if ($$self{'include_deleted'}) { } |
|
298
|
4 |
18 |
if ($pointer & 2147483648) |
|
299
|
0 |
4 |
if $$self{'debug'} |
|
302
|
1 |
3 |
unless $$self{'include_deleted'} |
|
316
|
0 |
21 |
if $$self{'debug'} |
|
320
|
0 |
21 |
unless seek $$self{'fileMST'}, $blk_off, 0 |
|
322
|
0 |
21 |
unless read $$self{'fileMST'}, $buff, 4 |
|
325
|
0 |
21 |
if $$self{'debug'} |
|
327
|
0 |
21 |
if ($value != $mfn) |
|
328
|
0 |
0 |
if ($value == 0) |
|
329
|
0 |
0 |
if $$self{'debug'} |
|
342
|
0 |
21 |
if $$self{'debug'} |
|
344
|
0 |
21 |
unless $MFRL % 2 == 0 |
|
346
|
0 |
21 |
unless $BASE == 18 + 6 * $NVF |
|
362
|
0 |
405 |
if $$self{'debug'} |
|
385
|
0 |
21 |
if $$self{'debug'} |
|
389
|
0 |
405 |
if $FieldLEN[$i] == 0 |
|
393
|
0 |
405 |
if ($$self{'ignore_empty_subfields'}) |
|
396
|
0 |
0 |
if $v eq '' |
|
404
|
0 |
21 |
if $$self{'debug'} |
|
580
|
4 |
2 |
if (ref $mfn eq 'HASH') |
|
583
|
1 |
3 |
if $$arg{'hash_filter'} |
|
592
|
4 |
2 |
unless defined $j_rs |
|
599
|
25 |
5 |
if $hash_filter |
|
600
|
0 |
30 |
unless defined $l |
|
606
|
0 |
30 |
if $l =~ s/^([01 #])([01 #])\^/^/ |
|
609
|
30 |
0 |
if ($l =~ /\^/) { } |
|
611
|
30 |
102 |
unless $t |
|
614
|
0 |
102 |
unless defined $v and $v ne '' |
|
617
|
18 |
84 |
if (ref $$val{$sf} eq 'ARRAY') { } |
|
|
12 |
72 |
elsif (defined $$val{$sf}) { } |
|
622
|
3 |
15 |
if not $j_rs and $i_sf |
|
630
|
2 |
10 |
if not $j_rs and $i_sf |
|
635
|
12 |
60 |
if $i_sf |
|
642
|
10 |
20 |
if ($j_rs) |
|
685
|
0 |
1 |
unless $$self{'cnt_file'} |
|
689
|
0 |
1 |
unless open my $fileCNT, $$self{'cnt_file'} |
|
694
|
0 |
1 |
unless read $fileCNT, $buff, 26 |
|
697
|
0 |
1 |
unless read $fileCNT, $buff, 26 |
|
736
|
0 |
2 |
if $$self{'debug'} |