| blib/lib/PerlIO/via/csv.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 17 | 12 | 18 | if defined $_[1] |
| 22 | 0 | 3 | if defined $_[1] |
| 32 | 1 | 2 | if exists $args{$_} |
| 41 | 0 | 3 | if ('PerlIO::via::csv'->debug) { } |
| 81 | 7 | 4 | if defined $/ |
| 96 | 11 | 3 | if ($row_index < @$rows) |
| 98 | 11 | 0 | if ($csv->combine(@cols)) |
| 116 | 6 | 2 | if ($sheet =~ /^\d+$/) { } |
| 118 | 2 | 4 | if ($sheet < 1 or $sheet > $max) |
| 125 | 1 | 1 | if (exists $$ref[0]{'sheet'}{$sheet}) { } |