| line |
true |
false |
branch |
|
16
|
3 |
0 |
unless ($@) |
|
30
|
5 |
10 |
if ($file =~ /[.](z|gz)$/) { } |
|
31
|
5 |
0 |
if ($have_io_zlib) { } |
|
32
|
0 |
5 |
unless $fh = 'IO::Zlib'->new($file, 'rb') |
|
37
|
1 |
9 |
unless $fh = 'IO::File'->new($file, '<') |
|
49
|
0 |
14 |
unless $fh->close |
|
60
|
19 |
63 |
if ($$self{'skip_empty'}) { } |
|
80
|
68 |
0 |
if ($index) { } |
|
95
|
4 |
8 |
unless (ref $files_ref eq 'ARRAY' and @{$files_ref;}) |
|
99
|
1 |
7 |
unless (ref $index_ref eq 'CODE') |
|
103
|
0 |
7 |
if ($opts_ref and ref $opts_ref ne 'HASH') |
|
107
|
1 |
6 |
$$opts_ref{'skip_empty_lines'} ? : |
|
133
|
0 |
2 |
unless $$a{'index'} cmp $$b{'index'} |
|
144
|
6 |
68 |
unless $pick |
|
152
|
54 |
14 |
if ($nextline) { } |
|
186
|
27 |
29 |
if ($$_{'index'} gt $$pick{'index'} or $$_{'index'} eq $$pick{'index'} and $$pick{'pref'} <= $$_{'pref'}) |
|
207
|
2 |
2 |
if ($file) { } |
|
208
|
0 |
2 |
unless open my $fh, '>', $file |
|
215
|
0 |
2 |
unless close $fh |