| line |
true |
false |
branch |
|
70
|
1 |
778 |
if $parms{$name} |
|
73
|
598 |
180 |
if ($$Preamble{$name}) |
|
75
|
1 |
597 |
unless defined $len and defined $parm |
|
82
|
18 |
579 |
if (/^defaults=(.*)/) |
|
226
|
1 |
17 |
unless $ret |
|
246
|
86 |
454 |
if (/indicator/ or /transind/) { } |
|
|
42 |
412 |
elsif (/user/) { } |
|
|
45 |
367 |
elsif (/date/) { } |
|
247
|
85 |
1 |
$len == 1 ? : |
|
252
|
13 |
29 |
$len == 1 ? : |
|
258
|
1 |
44 |
unless $len =~ /^(?:4|7|8|14)$/ |
|
260
|
1 |
43 |
unless $len == length $parm |
|
262
|
22 |
21 |
$len < 8 ? : |
|
270
|
105 |
262 |
$len == 1 ? : |
|
296
|
1 |
42 |
if $len != 1 |
|
301
|
1 |
41 |
if @n != 5 or @c != 5 |
|
324
|
4 |
16 |
if ($max =~ /^([.0-9]+)([MG])/) |
|
346
|
1 |
38 |
if -e $datafile |
|
393
|
38 |
0 |
if ($type) { } |
|
394
|
38 |
0 |
if ($type eq 'SCALAR') { } |
|
|
0 |
0 |
elsif ($type eq 'ARRAY') { } |
|
399
|
0 |
38 |
unless close $fh |