| line |
true |
false |
branch |
|
22
|
0 |
28 |
unless @_ |
|
27
|
9 |
19 |
if (@_ == 1) |
|
28
|
2 |
7 |
if (ref $_[0] eq 'HASH') { } |
|
36
|
12 |
16 |
if (@_ == 2 and ref $_[1] eq 'HASH') |
|
42
|
5 |
23 |
if (@_ % 2) |
|
47
|
7 |
21 |
if (@_) |
|
52
|
4 |
24 |
if (not $file and defined $opts{'file'}) |
|
57
|
0 |
28 |
unless $file |
|
60
|
4 |
24 |
if (exists $opts{'sep_char'}) |
|
83
|
21 |
0 |
unless $$opts{'tie_file'} |
|
|
0 |
21 |
unless tie @tiefile, 'Tie::File', $file, 'recsep', "\n", %{{} unless $$opts{'tie_file'};} |
|
87
|
1 |
20 |
if (blessed($$opts{'text_csv'}) and $$opts{'text_csv'}->isa('Text::CSV')) { } |
|
90
|
0 |
20 |
unless $csv = 'Text::CSV'->new($$opts{'text_csv'} || {}) |
|
157
|
3 |
88 |
unless defined $line |
|
159
|
91 |
0 |
if $$self{'csv'}->parse($line) |
|
168
|
5 |
0 |
ref $value ? : |
|
|
5 |
0 |
if $$self{'csv'}->combine(ref $value ? @$value : $value) |
|
270
|
0 |
11 |
unless $$self{'csv'}->combine(@{$$self{'fields'};}) |