| line |
true |
false |
branch |
|
35
|
0 |
13 |
if (/^\+(\d+)(?:\.(\d+))?([bdfinr]+)?/l) { } |
|
37
|
0 |
0 |
if defined $2 |
|
38
|
0 |
0 |
if $3 |
|
45
|
0 |
0 |
if (/^\-(\d+)(?:\.(\d+))?([bdfinr]+)?/l) |
|
46
|
0 |
0 |
defined $2 ? : |
|
47
|
0 |
0 |
if $3 |
|
60
|
0 |
6 |
unless &GetOptions(\%o, "k=s\@", ("c", "m", "u", "d", "f", "i", "n", "r", "b", "D"), map({"$_=s";} "X", "t", "y", "F", "o", "R")) |
|
61
|
0 |
6 |
if @pos |
|
62
|
0 |
6 |
unless @ARGV |
|
66
|
1 |
5 |
if $exit != 1 |
|
67
|
5 |
0 |
$exit ? : |
|
|
5 |
1 |
$exit == 1 ? : |
|
75
|
0 |
6 |
$opts->{'R'} ? : |
|
78
|
0 |
6 |
unless ref $opts->{'I'} |
|
80
|
0 |
6 |
unless @{$opts->{'I'};} |
|
83
|
1 |
5 |
$opts->{'k'} ? : |
|
84
|
0 |
5 |
$opts->{'k'} ? : |
|
|
5 |
1 |
unless ref $opts->{'k'} |
|
88
|
6 |
0 |
if (defined $opts->{'F'}) |
|
89
|
0 |
6 |
if int $opts->{'F'} < 1 |
|
91
|
6 |
0 |
if (defined $opts->{'y'}) |
|
92
|
0 |
6 |
if int $opts->{'y'} < 1 |
|
99
|
2 |
4 |
if ($opts->{'c'}) { } |
|
|
0 |
4 |
elsif ($opts->{'m'}) { } |
|
104
|
2 |
0 |
if ($filein eq '-') { } |
|
107
|
0 |
0 |
if -d $filein |
|
108
|
0 |
0 |
unless sysopen F, $filein, 0 |
|
114
|
0 |
6 |
if ($opts->{'u'} and $last) |
|
115
|
0 |
0 |
unless _are_uniq($opts->{'K'}, $last, $rec) |
|
119
|
4 |
2 |
if ($last) |
|
121
|
4 |
0 |
if ($opts->{'K'}) { } |
|
129
|
1 |
3 |
if $foo[0] ne $last or $foo[1] ne $rec |
|
145
|
0 |
0 |
if -d $filein |
|
148
|
0 |
0 |
unless sysopen $sym, $filein, 0 |
|
162
|
0 |
4 |
if $opts->{'D'} |
|
164
|
1 |
3 |
if ($filein eq '-') { } |
|
165
|
0 |
1 |
unless open F, "<-" |
|
167
|
0 |
3 |
if -d $filein |
|
168
|
0 |
3 |
unless sysopen F, $filein, 0 |
|
176
|
0 |
118 |
if ($count >= $opts->{'y'}) |
|
179
|
0 |
0 |
if $opts->{'D'} |
|
188
|
0 |
0 |
if (@fh >= $opts->{'F'}) |
|
193
|
0 |
0 |
if $opts->{'D'} |
|
197
|
4 |
114 |
if eof |
|
204
|
4 |
0 |
if (@recs) |
|
205
|
0 |
4 |
if $opts->{'D'} |
|
207
|
3 |
1 |
if ($opts->{'K'}) { } |
|
219
|
0 |
4 |
unless fileno $close == fileno STDOUT |
|
221
|
0 |
4 |
if $opts->{'D'} |
|
242
|
4 |
0 |
if @$recs |
|
244
|
0 |
4 |
if $opts->{'D'} |
|
247
|
4 |
0 |
if ($file eq '') { } |
|
|
0 |
0 |
elsif (not ref $file) { } |
|
254
|
0 |
0 |
unless sysopen $tfh, $file, 577 |
|
264
|
4 |
0 |
if (not $opts->{'u'} and keys %main::fh == 1) |
|
267
|
4 |
0 |
$first eq 'X' ? : |
|
275
|
0 |
0 |
if ($opts->{'K'}) { } |
|
286
|
0 |
0 |
if ($opts->{'u'}) { } |
|
288
|
0 |
0 |
if not $uniq or _are_uniq($opts->{'K'}, $uniq, $main::fh{$first}) |
|
298
|
0 |
0 |
$first eq 'X' ? : |
|
300
|
0 |
0 |
if (defined $rec) { } |
|
315
|
1 |
3 |
if not do {
$_[0]
}->[-1] =~ m[$/$]l |
|
320
|
0 |
0 |
unless my $temp = _get_temp() |
|
324
|
0 |
0 |
if $opts->{'D'} |
|
326
|
0 |
0 |
if ($opts->{'K'}) { } |
|
346
|
0 |
2 |
defined $4 ? : |
|
358
|
2 |
4 |
if $opts{$_} |
|
362
|
2 |
0 |
if (not $opts{'kst'} || $opts{'kft'}) { } |
|
364
|
0 |
12 |
if $topts->{$_} |
|
365
|
0 |
12 |
if $topts->{$_} |
|
371
|
0 |
0 |
if $opts{'kst'} =~ /$_/l or $opts{'kft'} =~ /$_/l |
|
372
|
0 |
0 |
if $opts{'kst'} =~ /$_/l or $opts{'kft'} =~ /$_/l |
|
383
|
5 |
1 |
if ($topts->{'K'}) |
|
386
|
1 |
29 |
if $topts->{$_} |
|
390
|
0 |
5 |
if ($topts->{'kst'} =~ /[bdfi]/l) |
|
397
|
5 |
1 |
if ($topts->{'K'}) { } |
|
398
|
0 |
5 |
if $topts->{'D'} |
|
404
|
0 |
5 |
if $topts->{'r'} |
|
407
|
1 |
4 |
if $topts->{'n'} |
|
413
|
0 |
5 |
if $topts->{'D'} |
|
418
|
0 |
5 |
if $@ |
|
420
|
0 |
5 |
if $@ |
|
428
|
0 |
1 |
defined $topts->{'t'} ? : |
|
|
0 |
1 |
defined $topts->{'X'} ? : |
|
430
|
0 |
1 |
if defined $topts->{'X'} |
|
439
|
0 |
2 |
$k eq 'K' ? : |
|
441
|
2 |
0 |
if ($k ne 'K') { } |
|
443
|
0 |
2 |
$opts->{'kff'} ? : |
|
446
|
0 |
2 |
if ($opts->{'kst'} =~ /b/l) |
|
450
|
0 |
2 |
if ($opts->{'kft'} =~ /b/l) |
|
455
|
2 |
0 |
if (not defined $opts->{'kff'} or $opts->{'ksf'} == $opts->{'kff'}) { } |
|
458
|
2 |
0 |
if ($opts->{'ksc'} == 0 and !$opts->{'kfc'} || $opts->{'kfc'} == 0) { } |
|
|
0 |
0 |
elsif (not $opts->{'kfc'}) { } |
|
477
|
0 |
0 |
if ($opts->{'kfc'} == 0 and $opts->{'ksc'} == 0 and not $opts->{'kst'} =~ /b/l and not $opts->{'kft'} =~ /b/l) { } |
|
|
0 |
0 |
elsif ($opts->{'kff'} - $opts->{'ksf'} == 1) { } |
|
496
|
0 |
0 |
$opts->{'kst'} =~ /b/l ? : |
|
501
|
0 |
2 |
if ($opts->{'kst'} =~ /f/l) |
|
506
|
0 |
2 |
if ($opts->{'kst'} =~ /d/l) { } |
|
|
0 |
2 |
elsif ($opts->{'kst'} =~ /i/l) { } |
|
516
|
0 |
2 |
if $opts->{'kst'} =~ /d/l |
|
520
|
0 |
2 |
if $opts->{'kst'} =~ /r/l |
|
523
|
0 |
2 |
if $opts->{'kst'} =~ /n/l |
|
530
|
0 |
2 |
if (@fil > 1) { } |
|
540
|
1 |
0 |
unless ($topts->{'u'}) |
|
543
|
0 |
1 |
$topts->{'r'} ? : |
|
553
|
0 |
2 |
$topts->{'k'}[0] eq 'K' ? : |
|
555
|
0 |
2 |
if $topts->{'DD'} |
|
557
|
2 |
0 |
if @mapsub |
|
561
|
0 |
1 |
if $topts->{'D'} |
|
565
|
0 |
16 |
unless $main::a->[2] cmp $main::b->[2] or $main::a->[3] cmp $main::b->[3] |
|
566
|
0 |
1 |
if $@ |
|
568
|
0 |
1 |
if $@ |
|
570
|
0 |
1 |
if $@ |
|
585
|
0 |
0 |
if ($nok) { } |