Branch Coverage

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


line true false branch
27 2355 3345 if (scalar @_ == 1) { }
9 3336 elsif (@_ % 2) { }
28 0 2355 if (ref $_[0] eq 'HASH') { }
18 2337 elsif (&blessed($_[0]) and $_[0]->isa('Statistics::R::REXP::Vector')) { }
50 0 5682 if ref $self eq 'Statistics::R::REXP::Vector'
54 0 5682 unless $self->can($req)
58 18 5664 if defined $self->elements and ref $self->elements ne 'ARRAY'
76 1579 129 defined $_ ? :
85 16 21216 ref $_ eq 'ARRAY' ? :
95 21 79 &blessed($_) && $_->can('to_pl') ? :