| lib/CSV/Reader.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 14 | 29 | 48.2 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 124 | 0 | 0 | 8 | defined $file and length $file |
| 262 | 56 | 2 | 6 | %opt_include_fields and not exists $opt_include_fields{$name} |
| line | l | !l | condition |
|---|---|---|---|
| 218 | 8 | 0 | $proto->_new_text_csv_object({'auto_diag', 1, 'binary', 1, 'blank_is_undef', 1, 'empty_is_undef', 1, 'sep_char', $self->{'delimiter'}, 'escape_char', $self->{'escape'}, 'quote_char', $self->{'enclosure'}, %text_csv_options}) || die('Method _new_text_csv_object() did not return a Text::CSV object as expected') |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 128 | 2 | 1 | 0 | ref $file eq 'GLOB' or UNIVERSAL::isa($file, 'IO::Handle') |
| 154 | 0 | 0 | 25 | $key eq 'debug' or $key eq 'skip_empty_lines' |
| 7 | 0 | 18 | $key eq 'enclosure' or $key eq 'escape' | |
| 158 | 0 | 0 | 7 | not defined $value or ref $value |
| 164 | 0 | 0 | 7 | not defined $value or ref $value |
| 0 | 0 | 7 | not defined $value or ref $value or not length $value | |
| 303 | 0 | 8 | 0 | ref $proto || $proto |