| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless (defined $opt{'file'} or defined $opt{'filehandle'} or defined $opt{'string'}) |
|
29
|
0 |
4 |
if (defined $opt{'filehandle'}) { } |
|
|
4 |
0 |
elsif (defined $opt{'file'}) { } |
|
36
|
1 |
3 |
unless open $io, "<$opt{'file'}" |
|
68
|
0 |
1 |
unless exists $arg{'input'} and ref $arg{'input'} eq 'ARRAY' and ref @{$arg{'input'};}[0] eq 'HASH' |
|
76
|
1 |
0 |
defined $arg{'field_order'} ? : |
|
84
|
0 |
1 |
unless ($csv->combine(@names)) |
|
96
|
0 |
2 |
unless ($csv->combine(@data)) |
|
112
|
2 |
1 |
if (my $head = $csv->getline($io)) { } |