| blib/lib/Text/CSV/Slurp.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 18 | 66.6 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 0 | 5 | if (defined $opt{'filehandle'}) { } |
| 4 | 1 | elsif (defined $opt{'file'}) { } | |
| 1 | 0 | elsif (defined $opt{'string'}) { } | |
| 33 | 1 | 3 | unless open $io, "<$opt{'file'}" |
| 53 | 0 | 1 | unless exists $arg{'input'} and ref $arg{'input'} eq 'ARRAY' and ref @{$arg{'input'};}[0] eq 'HASH' |
| 61 | 1 | 0 | defined $arg{'field_order'} ? : |
| 69 | 0 | 1 | unless ($csv->combine(@names)) |
| 81 | 0 | 2 | unless ($csv->combine(@data)) |
| 97 | 3 | 1 | if (my $head = $csv->getline($io)) { } |