blib/lib/Statistics/R/IO/REXPFactory.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 15 | 29 | 51.7 |
line | l | !l | condition |
---|---|---|---|
461 | 59 | 0 | exists $vars{$name} and die "Variable $name is already defined in the environment" |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
253 | 751 | 62 | 89 | $row_names and $row_names->type eq 'integer' |
813 | 0 | 89 | $row_names and $row_names->type eq 'integer' and not defined $row_names->elements->[0] | |
351 | 13 | 0 | 130 | defined $re and defined $im |
527 | 0 | 0 | 26 | ref $class eq 'ARRAY' and scalar @{$class;} == 1 |
530 | 0 | 0 | 26 | ref $package eq 'ARRAY' and scalar @{$package;} == 1 |
545 | 774 | 6 | 0 | ref $data and ref $data ne ref [] |
line | l | !l | condition |
---|---|---|---|
298 | 4685 | 0 | shift @args || [] |
381 | 46 | 0 | shift() || (return) |
425 | 1880 | 0 | shift() || (return) |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
505 | 0 | 0 | 0 | $body // 'Statistics::R::REXP::Null'->new |