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