| lib/Spreadsheet/Write/WriteCSV.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 4 | 10 | 40.0 |
| line | l | !l | condition |
|---|---|---|---|
| 12 | 0 | 0 | $args{'file'} || $args{'filename'} || die('Need filename.') |
| 15 | 0 | 2 | $args{'csv_options'}{'sep_char'} ||= ',' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 16 | 0 | 2 | 0 | $args{'csv_options'}{'eol'} ||= $/ |
| 25 | 4 | 2 | 0 | $self->{'_CSV_OBJ'} ||= 'Text::CSV'->new($self->{'_CSV_OPTIONS'}) |