| line |
true |
false |
branch |
|
74
|
10 |
1 |
if @_ |
|
86
|
10 |
7 |
if ($$self{'fh'}) |
|
90
|
4 |
13 |
if ($$self{'fhMemo'}) |
|
111
|
0 |
10 |
unless my $fh = 'FileHandle'->new($fileName) |
|
118
|
0 |
10 |
if $filesig ne 'C3' |
|
124
|
7 |
3 |
if ($sfatr & FILOWN()) |
|
153
|
17 |
57 |
if 8 == $$fd{'fldtype'} |
|
159
|
17 |
57 |
unless $c |
|
160
|
27 |
47 |
if uc $c eq 'A' |
|
161
|
7 |
67 |
if 'G' eq $c |
|
187
|
6 |
4 |
if defined $skipMemo or not $sfatr & FILMEMO() |
|
191
|
0 |
4 |
unless $fh = 'FileHandle'->new($fileName) |
|
198
|
0 |
4 |
if $filesig ne 'M3' |
|
245
|
3 |
35 |
if $n < 1 or $n > $$self{'header'}{'numrecs'} |
|
260
|
21 |
14 |
unless $$self{'fhMemo'} |
|
264
|
0 |
14 |
$$self{'record'}{'rhd'} & RECDEL() ? : |
|
269
|
3 |
4 |
if $$self{'sfatr'} & FILCRYP() |
|
270
|
7 |
0 |
unless defined $memo |
|
273
|
7 |
7 |
if $memo |
|
296
|
3 |
33 |
unless $self->readRecord($n) |
|
298
|
33 |
0 |
unless @fields |
|
320
|
0 |
2 |
unless $self->readRecord($n) |
|
324
|
0 |
2 |
@fields ? : |
|
346
|
4 |
2 |
if $$self{'sfatr'} & FILOWN() |
|
347
|
2 |
4 |
if $$self{'sfatr'} & FILCRYP() |
|
348
|
3 |
3 |
if $$self{'sfatr'} & FILCRET() |
|
349
|
6 |
0 |
if $$self{'sfatr'} & FILRCLM() |
|
350
|
1 |
5 |
if $$self{'sfatr'} & FILREAD() |
|
351
|
3 |
3 |
if $$self{'sfatr'} & FILMEMO() |
|
357
|
3 |
42 |
if $$f{'isMemo'} |
|
360
|
0 |
42 |
if (not $t or '?' eq $t) |
|
364
|
9 |
33 |
if ('.' eq $t) { } |
|
366
|
3 |
6 |
if 7 == $$f{'fldtype'} |
|
369
|
9 |
24 |
if 8 == $$f{'fldtype'} |
|
381
|
36 |
110 |
unless defined $$self{'Key'} |
|
385
|
110 |
1748 |
unless defined $c2 |
|
394
|
0 |
213 |
if $rc != $len |
|
396
|
136 |
77 |
$decrypt ? : |
|
402
|
0 |
14 |
if $rc != $len |
|
413
|
25 |
24 |
substr($bcd, 0, 1) eq '0' ? : |
|
415
|
0 |
49 |
if $bcd =~ s/\D/9/g |
|
420
|
9 |
40 |
unless length $sig |
|
424
|
43 |
6 |
if length $dec |