| blib/lib/Statistics/R/REXP/Closure.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 12 | 21 | 57.1 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 45 | 1 | 0 | 1 | &blessed($_[0]) and $_[0]->isa('Statistics::R::REXP::Closure') |
| 78 | 0 | 0 | 18 | &blessed($_) && $_->isa('Statistics::R::REXP') |
| 80 | 1 | 0 | 73 | &blessed(scalar $self->body) and $self->body->isa('Statistics::R::REXP') |
| 83 | 1 | 0 | 63 | &blessed(scalar $self->environment) && $self->environment->isa('Statistics::R::REXP::Environment') |
| 9 | 63 | 1 | defined $self->environment and not &blessed(scalar $self->environment) && $self->environment->isa('Statistics::R::REXP::Environment') |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 75 | 0 | 0 | 74 | ref $self->args ne 'ARRAY' or grep {ref $_;} @{$self->args;} |
| 78 | 0 | 0 | 74 | ref $self->defaults ne 'ARRAY' or grep {not &blessed($_) && $_->isa('Statistics::R::REXP') if defined $_;} @{$self->defaults;} |