| line |
true |
false |
branch |
|
36
|
2 |
0 |
if (-e $config_file) { } |
|
41
|
1 |
1 |
unless ($file) |
|
58
|
0 |
1 |
unless (-e $file) |
|
87
|
1 |
2 |
unless $curr_rec |
|
103
|
1 |
2 |
if $eor eq "\cZ" |
|
104
|
0 |
2 |
unless defined $rec |
|
128
|
0 |
3 |
unless $rc |
|
129
|
1 |
2 |
if $info =~ /^\cZ/ |
|
149
|
0 |
0 |
unless (-e $file) |
|
159
|
0 |
0 |
if $BTRIEVE::SAVE::DEBUG |
|
160
|
0 |
0 |
if ($totalrecord == 0) |
|
171
|
0 |
0 |
unless ($$marc{'opt'}{'handle'}) |
|
187
|
0 |
0 |
unless ($$save_btr{'opt'}{'handle'}) |
|
188
|
0 |
0 |
if ($increment) |
|
206
|
0 |
0 |
if ($outfile) { } |
|
207
|
0 |
0 |
unless ($outfile =~ /^>/) |
|
209
|
0 |
0 |
unless open OUT, "$outfile" |
|
212
|
0 |
0 |
unless close OUT |
|
260
|
0 |
1 |
unless open RDB, "$rdb" |
|
262
|
0 |
1 |
unless open SAVE, ">$save" |
|
264
|
0 |
1 |
unless open ERRS, ">$errs" |
|
291
|
0 |
2 |
unless /\S/ |
|
297
|
0 |
2 |
if ($#fields != $#rdbnames) |
|
310
|
2 |
6 |
if ($name eq $zzname) |
|
314
|
2 |
4 |
if ($name eq $varname) |
|
318
|
0 |
4 |
if ($fieldlen{$name} != length $field) |
|
334
|
0 |
1 |
unless close RDB |
|
335
|
0 |
1 |
unless close ERRS |
|
336
|
0 |
1 |
unless close SAVE |
|
361
|
1 |
2 |
if $_ eq 'ZZ' |
|
362
|
0 |
1 |
unless open RDB, ">$rdb" |
|
364
|
0 |
1 |
unless open ERRS, ">$errs" |
|
387
|
0 |
6 |
if ($field =~ /$tabtrans|$rettrans/) |
|
401
|
0 |
1 |
unless close RDB |
|
403
|
0 |
1 |
unless close ERRS |
|
445
|
0 |
2 |
unless open F, $handle |
|
453
|
2 |
86 |
if (/langname/i) |
|
457
|
2 |
86 |
if /Record Length/ |
|
458
|
4 |
84 |
if (/^\s+\d+/) |
|
460
|
0 |
4 |
unless $BTRIEVE::SAVE::REC::TYPEMAP{$type} |
|
463
|
0 |
4 |
if $langname eq 'ZZ' |
|
479
|
0 |
2 |
if $ZZ_len < 0 |
|
487
|
0 |
2 |
unless close F |
|
504
|
0 |
0 |
if $hashed_len == $$save_rec{'opt'}{'len'} |
|
542
|
0 |
6 |
if ($_ eq 'ZZ' and not defined $fixed[0]) |
|
581
|
0 |
0 |
if (@_) |
|
595
|
0 |
2 |
if (@_) |
|
625
|
0 |
2 |
unless defined $$rhfixed{'ZZ'} |