Branch Coverage

blib/lib/Statistics/Descriptive/Discrete.pm
Criterion Covered Total %
branch 62 78 79.4


line true false branch
49 0 17 if $Statistics::Descriptive::Discrete::DEBUG
67 0 132 if $Statistics::Descriptive::Discrete::DEBUG
80 0 21 if $Statistics::Descriptive::Discrete::DEBUG
89 74 62 unless (exists $self->{'_dataindex'}{$val})
107 0 5 if $Statistics::Descriptive::Discrete::DEBUG
110 0 5 if @_ % 2
122 18 0 unless (exists $self->{'_dataindex'}{$val})
152 3 83 if ($self->_test_for_too_small_val($val))
163 2 19 if ($self->_test_for_too_small_val($hs))
177 0 28 if $Statistics::Descriptive::Discrete::DEBUG
180 4 24 unless ($self->{'data'})
209 26 69 if $_ < $min
210 22 73 if $_ > $max
215 32 63 if ($n > $moden)
229 23 1 if ($count > 1) { }
248 8 16 $odd ? :
256 16 108 if ($temp == $k and $even) { }
24 84 elsif ($temp == $k + 1) { }
263 16 8 if $even
274 3 90 if ($val < 0)
288 0 24 if $Statistics::Descriptive::Discrete::DEBUG
321 0 1 if $Statistics::Descriptive::Discrete::DEBUG
417 3 9 if (not @_ || $self->{'dirty'} and defined $self->{'_frequency'})
422 8 1 if $self->{'dirty'}
425 1 8 if ($self->count < 2)
433 4 4 if (ref $partitions eq 'ARRAY') { }
436 0 4 unless @k
437 4 0 if (@k > 1)
441 0 18 if ($element > $next_elem)
452 1 3 unless defined $partitions and $partitions >= 1
469 44 65 if ($element <= $limit)
486 0 3 if (not defined $ret) { }
503 2 6 unless ($self->{'data'})
510 2 4 if (wantarray) { }
523 0 83 unless my $type = ref $self
527 17 66 if $name eq 'DESTROY'
528 0 66 unless (exists $self->{'_permitted'}{$name})
532 0 66 if $Statistics::Descriptive::Discrete::DEBUG
535 20 46 if $self->{'dirty'}