| line |
true |
false |
branch |
|
27
|
0 |
2 |
unless eval {
do {
(my $fh, $filename) = tempfile();
binmode $fh, ':raw';
die 'whatever' unless print {$fh;} "one\ntwo\nthree\nfour\n";
die 'whatever' unless close $fh
}
} |
|
30
|
0 |
2 |
unless print {$fh;} "one\ntwo\nthree\nfour\n" |
|
31
|
0 |
2 |
unless close $fh |
|
34
|
0 |
2 |
unless open my $fh, '-|', 'sort', '-u', $filename |
|
35
|
0 |
2 |
unless $fh |
|
37
|
0 |
2 |
unless scalar @lines == 4 |
|
38
|
0 |
2 |
unless defined $lines[3] |
|
40
|
0 |
2 |
unless $lines[3] eq 'two' |
|
50
|
65 |
64 |
if ($has_sort) |
|
52
|
65 |
0 |
if eval {
do {
open $fh, '-|', 'sort', '-u', $filename
}
} |
|
64
|
0 |
65 |
unless open my $ifh, '<', $filename |
|
74
|
3 |
615 |
if (@records >= $max_records) |
|
76
|
3 |
0 |
if @fhs >= $max_files - 1 |
|
80
|
65 |
0 |
if @records |
|
82
|
65 |
0 |
if @fhs |
|
94
|
0 |
618 |
if defined $previous and $previous eq $item |
|
104
|
65 |
3 |
if @$fhs == 1 |
|
113
|
6 |
0 |
if (defined $head) { } |
|
128
|
5 |
9 |
if $best gt $head |
|
138
|
19 |
6 |
if (defined $head) { } |