Branch Coverage

blib/lib/Statistics/R/IO/Base.pm
Criterion Covered Total %
branch 25 30 83.3


line true false branch
24 530 4 if (scalar @_ == 1) { }
0 4 elsif (@_ % 2) { }
25 530 0 if (defined $_[0])
26 233 297 if (ref $_[0] eq 'HASH') { }
295 2 elsif (ref $_[0] eq '') { }
30 2 293 unless -r $name
51 0 530 if ref $self eq 'Statistics::R::IO::Base'
54 0 530 unless $self->can('read')
57 2 528 unless defined $args->{'fh'}
62 2 526 if defined $args->{'fh'} and not ref $args->{'fh'} eq 'GLOB' && &Scalar::Util::openhandle($args->{'fh'}) || &blessed($args->{'fh'}) && $args->{'fh'}->isa('IO::Handle')
70 0 526 unless defined $rc
71 120 406 if (substr($data, 0, 2) eq "\037\213") { }
120 286 elsif (substr($data, 0, 3) eq 'BZh') { }
60 226 elsif (substr($data, 0, 6) eq "\3757zXZ\000") { }
99 528 2 if $self->fh