Branch Coverage

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


line true false branch
48 0 17 if $Statistics::Descriptive::Discrete::DEBUG
66 0 132 if $Statistics::Descriptive::Discrete::DEBUG
79 0 21 if $Statistics::Descriptive::Discrete::DEBUG
88 74 62 unless (exists $self->{'_dataindex'}{$val})
106 0 5 if $Statistics::Descriptive::Discrete::DEBUG
109 0 5 if @_ % 2
121 18 0 unless (exists $self->{'_dataindex'}{$val})
151 3 88 if ($self->_test_for_too_small_val($val))
162 2 19 if ($self->_test_for_too_small_val($hs))
176 0 28 if $Statistics::Descriptive::Discrete::DEBUG
179 4 24 unless ($self->{'data'})
208 23 72 if $_ < $min
209 23 72 if $_ > $max
214 28 67 if ($n > $moden)
228 23 1 if ($count > 1) { }
247 8 16 $odd ? :
255 16 108 if ($temp == $k and $even) { }
24 84 elsif ($temp == $k + 1) { }
262 16 8 if $even
273 3 87 if ($val < 0)
287 0 24 if $Statistics::Descriptive::Discrete::DEBUG
320 0 1 if $Statistics::Descriptive::Discrete::DEBUG
416 3 9 if (not @_ || $self->{'dirty'} and defined $self->{'_frequency'})
421 8 1 if $self->{'dirty'}
424 1 8 if ($self->count < 2)
432 4 4 if (ref $partitions eq 'ARRAY') { }
435 0 4 unless @k
436 4 0 if (@k > 1)
440 0 18 if ($element > $next_elem)
451 1 3 unless defined $partitions and $partitions >= 1
468 44 65 if ($element <= $limit)
485 0 3 if (not defined $ret) { }
502 2 6 unless ($self->{'data'})
509 2 4 if (wantarray) { }
522 0 82 unless my $type = ref $self
526 17 65 if $name eq 'DESTROY'
527 0 65 unless (exists $self->{'_permitted'}{$name})
531 0 65 if $Statistics::Descriptive::Discrete::DEBUG
534 20 45 if $self->{'dirty'}