| lib/BoutrosLab/TSVStream/IO/Role/Writer/Fixed.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 79 | 6 | 4 | if $self->pre_header |
| 80 | 9 | 1 | if ($self->header eq 'write') |
| 87 | 20 | 0 | ref $_[0] ? : |
| 88 | 0 | 20 | if (ref $obj eq 'ARRAY') { } |
| 4 | 16 | elsif (ref $obj ne $self->class) { } | |
| 127 | 6 | 0 | if $self->comment |
| 136 | 0 | 20 | unless scalar @list == $self->_num_fields |
| 173 | 0 | 0 | if $self->filtersub->($obj) |