| blib/lib/Statistics/R/REXP/S4.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 8 | 10 | 80.0 |
| line | true | false | branch |
|---|---|---|---|
| 36 | 0 | 60 | unless defined $args->{'class'} |
| 39 | 1 | 59 | unless defined $self->class and not ref $self->class |
| 42 | 125 | 0 | if defined $_ |
| 1 | 58 | if ref $self->slots ne 'HASH' or grep {not &blessed($_) && $_->isa('Statistics::R::REXP') if defined $_;} values %{$self->slots;} | |
| 44 | 1 | 57 | unless defined $self->package and not ref $self->package |