| lib/Net/HL7/Segment.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 24 | 100.0 |
| line | true | false | branch |
|---|---|---|---|
| 59 | 4 | 50 | unless $self->_init(@_) |
| 71 | 3 | 51 | unless $name and length $name == 3 |
| 72 | 1 | 50 | unless uc $name eq $name |
| 78 | 27 | 23 | if ($fieldsRef and ref $fieldsRef eq 'ARRAY') |
| 114 | 107 | 192 | unless $index and defined $value |
| 139 | 34 | 192 | if (wantarray) { } |
| 140 | 4 | 30 | if (ref $$self{'FIELDS'}[$index] eq 'ARRAY') { } |
| 169 | 9 | 75 | if (ref $field eq 'ARRAY') { } |
| 173 | 5 | 18 | if (ref $$field[$i] eq 'ARRAY') { } |
| 181 | 14 | 9 | if ($i < @{$field;} - 1) |
| 224 | 1 | 8 | unless $from |
| 225 | 8 | 1 | unless $to |