Branch Coverage

blib/lib/Statistics/R/REXP/Vector.pm
Criterion Covered Total %
branch 17 20 85.0


line true false branch
27 2852 6705 if (scalar @_ == 1) { }
9 6696 elsif (@_ % 2) { }
28 0 2852 if (ref $_[0] eq 'HASH') { }
18 2834 elsif (&blessed($_[0]) and $_[0]->isa('Statistics::R::REXP::Vector')) { }
50 0 9539 if ref $self eq 'Statistics::R::REXP::Vector'
54 0 9539 unless $self->can($req)
58 18 9521 if defined $self->elements and ref $self->elements ne 'ARRAY'
76 2171 241 defined $_ ? :
85 16 31818 ref $_ eq 'ARRAY' ? :
95 21 79 &blessed($_) && $_->can('to_pl') ? :