| blib/lib/Statistics/R/REXP/Unknown.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 10 | 90.0 |
| line | true | false | branch |
|---|---|---|---|
| 24 | 3 | 33 | if (scalar @_ == 1) { } |
| 1 | 32 | elsif (@_ % 2) { } | |
| 25 | 0 | 3 | if (ref $_[0] eq 'HASH') { } |
| 40 | 1 | 34 | if (&blessed($attributes->{'sexptype'}) and $attributes->{'sexptype'}->isa('Statistics::R::REXP::Unknown')) |
| 51 | 2 | 32 | unless &looks_like_number(scalar $self->sexptype) and $self->sexptype >= 0 and $self->sexptype <= 255 |