| line |
true |
false |
branch |
|
88
|
1 |
13 |
unless (defined $options{'sep_char'}) |
|
94
|
2 |
12 |
unless ((my $l = length $options{'sep_char'}) == 1) |
|
97
|
1 |
13 |
if (defined(my $c = $options{'sep_char'}) and defined(my $r = $options{'sep_re'})) |
|
98
|
1 |
0 |
unless $c =~ /$r/ |
|
102
|
1 |
13 |
unless tie my @lines, 'Tie::File', $fname |
|
136
|
4 |
0 |
if (@$columns) { } |
|
137
|
0 |
0 |
unless $csv->combine(@$columns) |
|
184
|
2 |
4 |
unless defined $line |
|
185
|
0 |
4 |
if (defined(my $eol = $$self{'eol'})) |
|
188
|
0 |
4 |
if (defined(my $re = $$self{'sep_re'})) { } |
|
189
|
0 |
0 |
defined $_ ? : |
|
194
|
0 |
0 |
if $line =~ /$re$/ |
|
198
|
0 |
0 |
if $csv->parse($line) |
|
208
|
0 |
2 |
if (@$fields == 0) { } |
|
|
1 |
1 |
elsif (@$fields == 1 and $$fields[0] eq '') { } |
|
210
|
0 |
0 |
defined $eol ? : |
|
215
|
0 |
2 |
defined $_ ? : |
|
220
|
0 |
0 |
unless $csv->combine(@$fields) |
|
228
|
4 |
0 |
unless $$self{'fields'} |