| line |
true |
false |
branch |
|
179
|
4 |
0 |
if exists $$self{'File'} |
|
196
|
2 |
2 |
if ($$self{'DeleteFiles'}) |
|
198
|
0 |
2 |
if ($^O eq 'VMS') |
|
203
|
0 |
2 |
unless rename $filename, $newfilename |
|
210
|
0 |
4 |
unless open $fh, '<', $filename |
|
215
|
4 |
0 |
if $$self{'LockFile'} |
|
217
|
4 |
0 |
if (-s $fh) |
|
218
|
0 |
4 |
$read_header ? : |
|
224
|
2 |
2 |
if $$self{'DeleteFiles'} |
|
230
|
0 |
2 |
if (-e $_) |
|
247
|
4 |
0 |
if $keep |
|
253
|
4 |
8 |
unless length $_ |
|
254
|
0 |
8 |
unless /^(\S+)\s*=\s*(.*)/ |
|
258
|
8 |
0 |
if $keep |
|
285
|
142 |
106 |
if (/^\+\s+(\d+)\s?(.*)/) { } |
|
|
106 |
0 |
elsif (s/^=\s+//) { } |
|
302
|
0 |
106 |
unless @data == 7 |
|
304
|
0 |
106 |
unless /^[-+ 0-9eE\.]+$/ |
|
310
|
79 |
27 |
if $filter |
|
319
|
60 |
46 |
if (exists $$lookup{$path_key}) { } |
|
453
|
0 |
10 |
unless $opt{'field'} |
|
457
|
0 |
10 |
unless defined $index |
|
461
|
4 |
6 |
if ($opt{'reverse'}) { } |
|
500
|
2 |
0 |
if (/^key(\d+)$/) |
|
506
|
0 |
2 |
unless $index |
|
508
|
0 |
2 |
if (UNIVERSAL::isa($val, 'Regexp')) { } |
|
510
|
0 |
0 |
unless $#$_ < $index |
|
514
|
0 |
2 |
if ($opt{'case_sensitive'}) { } |
|
515
|
0 |
0 |
unless $#$_ < $index |
|
520
|
19 |
0 |
unless $#$_ < $index |
|
551
|
4 |
0 |
if (/^key(\d+)$/) |
|
557
|
0 |
4 |
unless $index |
|
559
|
0 |
4 |
if (UNIVERSAL::isa($val, 'Regexp')) { } |
|
561
|
0 |
0 |
if $#$_ >= $index |
|
565
|
0 |
4 |
if ($opt{'case_sensitive'}) { } |
|
566
|
0 |
0 |
if $#$_ >= $index |
|
571
|
26 |
0 |
if $#$_ >= $index |
|
597
|
12 |
34 |
unless exists $$ptr{$key} |
|
629
|
0 |
0 |
if (length $key > 72 or $key =~ /\n/) { } |
|
638
|
0 |
0 |
if ($$node[0] > 1) { } |
|
671
|
0 |
0 |
unless exists $opt{'number'} |
|
673
|
0 |
0 |
if @$nodes < $opt{'number'} |