| line |
true |
false |
branch |
|
22
|
1 |
0 |
if (defined(my $filenames = delete $args{'filenames'})) { } |
|
|
0 |
0 |
elsif (defined($fhs = delete $args{'filehandles'})) { } |
|
24
|
0 |
3 |
unless open my $fh, "<", $filename |
|
32
|
0 |
1 |
unless @$fhs |
|
33
|
0 |
1 |
if keys %args |
|
42
|
0 |
3 |
unless $columns = $csv_parser->getline($fh) |
|
68
|
2 |
1 |
$i ? : |
|
85
|
1 |
0 |
wantarray ? : |
|
95
|
2 |
16 |
if ($seek) |
|
99
|
15 |
3 |
unless eof $fh |
|
100
|
1 |
2 |
if $self->{'file_pos'} >= $#{$$self{"files"};} |
|
113
|
0 |
19 |
if ($seek) |
|
117
|
19 |
0 |
unless (eof $fh) |
|
122
|
0 |
0 |
if $self->{'file_pos'} >= $#{$$self{"files"};} |