| blib/lib/TableDataRole/Source/CSVInFile.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 22 | 3 | 5 | if (defined(my $filename = delete $args{'filename'})) { } |
| 5 | 0 | elsif (defined($fh = delete $args{'filehandle'})) { } | |
| 23 | 0 | 3 | unless open $fh, "<", $filename |
| 29 | 0 | 8 | if keys %args |
| 35 | 0 | 8 | unless my $columns = $csv_parser->getline($fh) |
| 68 | 4 | 6 | wantarray ? : |
| 80 | 0 | 312 | if eof $fh |
| 89 | 0 | 4 | if eof $fh |