| lib/Net/HL7/Segment.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 24 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 49 | 4 | 50 | unless $self->_init(@_) |
| 61 | 3 | 51 | unless $name and length $name == 3 |
| 62 | 1 | 50 | unless uc $name eq $name |
| 68 | 27 | 23 | if ($fieldsRef and ref $fieldsRef eq 'ARRAY') |
| 104 | 107 | 192 | unless $index and defined $value |
| 129 | 34 | 192 | if (wantarray) { } |
| 130 | 4 | 30 | if (ref $self->{'FIELDS'}[$index] eq 'ARRAY') { } |
| 159 | 9 | 75 | if (ref $field eq 'ARRAY') { } |
| 163 | 5 | 18 | if (ref $field->[$i] eq 'ARRAY') { } |
| 171 | 14 | 9 | if ($i < @{$field;} - 1) |
| 214 | 1 | 8 | unless $from |
| 215 | 8 | 1 | unless $to |