| 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 ? : |
|
225
|
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
|
366 |
274 |
if (/^\+\s+(\d+)\s?(.*)/) { } |
|
|
274 |
0 |
elsif (s/^=\s+//) { } |
|
302
|
0 |
274 |
unless @data == 7 |
|
304
|
0 |
274 |
unless /^[-+ 0-9eE\.]+$/ |
|
310
|
247 |
27 |
if $filter |
|
319
|
208 |
66 |
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')) { } |
|
511
|
0 |
0 |
unless $#$_ < $index |
|
514
|
0 |
2 |
if ($opt{'case_sensitive'}) { } |
|
516
|
0 |
0 |
unless $#$_ < $index |
|
521
|
39 |
0 |
unless $#$_ < $index |
|
551
|
4 |
0 |
if (/^key(\d+)$/) |
|
557
|
0 |
4 |
unless $index |
|
559
|
0 |
4 |
if (UNIVERSAL::isa($val, 'Regexp')) { } |
|
562
|
0 |
0 |
if $#$_ >= $index |
|
565
|
0 |
4 |
if ($opt{'case_sensitive'}) { } |
|
567
|
0 |
0 |
if $#$_ >= $index |
|
572
|
46 |
0 |
if $#$_ >= $index |
|
597
|
32 |
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'} |