| line |
true |
false |
branch |
|
44
|
2 |
76 |
if (scalar @_ == 1) { } |
|
|
1 |
75 |
elsif (@_ % 2) { } |
|
45
|
0 |
2 |
if (ref $_[0] eq 'HASH') { } |
|
|
1 |
2 |
elsif (&blessed($_[0]) and $_[0]->isa('Statistics::R::REXP::Closure')) { } |
|
71
|
1 |
74 |
unless defined $args->{'body'} |
|
75
|
0 |
74 |
if ref $self->args ne 'ARRAY' or grep {ref $_;} @{$self->args;} |
|
78
|
18 |
28 |
if defined $_ |
|
|
0 |
74 |
if ref $self->defaults ne 'ARRAY' or grep {not &blessed($_) && $_->isa('Statistics::R::REXP') if defined $_;} @{$self->defaults;} |
|
80
|
1 |
73 |
unless &blessed(scalar $self->body) and $self->body->isa('Statistics::R::REXP') |
|
83
|
1 |
72 |
if defined $self->environment and not &blessed(scalar $self->environment) && $self->environment->isa('Statistics::R::REXP::Environment') |
|
87
|
19 |
53 |
if ($defaults_length) |
|
89
|
1 |
18 |
unless $defaults_length == @{$self->args;} |