Branch Coverage

blib/lib/Statistics/Basic.pm
Criterion Covered Total %
branch 39 58 67.2


line true false branch
16 0 33 exists $ENV{'NOFILL'} ? :
17 0 33 exists $ENV{'DEBUG_STATS_B'} ? :
18 0 33 exists $ENV{'IPRES'} ? :
19 0 33 if exists $ENV{'TOLER'}
42 20 224 /^(ignore_env|nofill|debug|ipres|toler|unbias)(?:=([\d\.\-_]+))?\z/i ? :
45 5 192 if (grep {$$_[0] =~ /ignore_env/;} @special)
56 10 5 if defined $v
58 3 12 if (lc $k eq 'ipres') { }
5 7 elsif (lc $k eq 'toler') { }
59 1 2 unless defined $v
60 0 3 unless $v >= 0
64 4 1 if (defined $v) { }
65 0 4 unless $v >= 0
74 4 3 defined $v ? :
95 0 197 unless eval $pull
100 0 12 unless my $r = eval { do { 'Statistics::Basic::ComputedVector'->new(@_) } }
102 0 18 unless my $r = eval { do { 'Statistics::Basic::Vector'->new(@_) } }
103 0 26 unless my $r = eval { do { 'Statistics::Basic::Mean'->new(@_) } }
104 0 10 unless my $r = eval { do { 'Statistics::Basic::Median'->new(@_) } }
105 0 2 unless my $r = eval { do { 'Statistics::Basic::Mode'->new(@_) } }
106 0 2 unless my $r = eval { do { 'Statistics::Basic::Variance'->new(@_) } }
107 0 14 unless my $r = eval { do { 'Statistics::Basic::StdDev'->new(@_) } }
109 0 2 unless my $r = eval { do { 'Statistics::Basic::Covariance'->new($_[0], $_[1]) } }
110 0 6 unless my $r = eval { do { 'Statistics::Basic::Correlation'->new($_[0], $_[1]) } }
111 0 1 unless my $r = eval { do { 'Statistics::Basic::LeastSquareFit'->new($_[0], $_[1]) } }
116 0 2 unless my $v3 = eval { do { computed($v1) } }
117 0 2 unless my $v4 = eval { do { computed($v2) } }
121 10 3 if defined $v[$_]
126 10 3 if defined $v[$_]