| lib/Net/HL7/Segment.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 24 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 59 | 4 | 40 | unless $self->_init(@_) |
| 71 | 3 | 41 | unless $name and length $name == 3 |
| 72 | 1 | 40 | unless uc $name eq $name |
| 78 | 22 | 18 | if ($fieldsRef and ref $fieldsRef eq 'ARRAY') |
| 114 | 81 | 158 | unless $index and defined $value |
| 139 | 29 | 152 | if (wantarray) { } |
| 140 | 4 | 25 | if (ref $self->{'FIELDS'}[$index] eq 'ARRAY') { } |
| 169 | 9 | 48 | if (ref $field eq 'ARRAY') { } |
| 173 | 5 | 18 | if (ref $field->[$i] eq 'ARRAY') { } |
| 181 | 14 | 9 | if ($i < @{$field;} - 1) |
| 224 | 1 | 7 | unless $from |
| 225 | 7 | 1 | unless $to |