Branch Coverage

blib/lib/Statistics/Descriptive/LogScale.pm
Criterion Covered Total %
branch 142 168 84.5


line true false branch
199 4 42 if ($opt{'only_linear'})
201 0 4 unless $opt{'linear_width'}
211 0 46 unless $opt{'base'} > 1
218 13 33 if (defined $opt{'linear_thresh'}) { }
224 4 42 if $opt{'linear_width'} and not $opt{'linear_thresh'}
226 0 46 unless $opt{'linear_thresh'} >= 0
246 15 31 if ($self->{'linear_thresh'})
249 4 11 unless $n_linear % 2
253 4 42 if ($opt{'only_linear'})
260 11 35 if ($opt{'data'})
363 4 1 $self->count ? :
469 0 4 unless $self->{'count'}
489 0 48 unless 0 <= $x and $x <= 100
493 6 42 if $need < 1
550 1 0 unless defined $upper
555 0 1 unless $min < $max
575 0 2 if ($@ and not $@ =~ /division.*zero/)
592 1 1 unless $self->count
593 0 1 if $self->min * $self->max < 0
596 0 1 if $self->{'data'}{'0'}
599 0 1 $self->min < 0 ? :
613 2 18 unless $n > 2
633 2 20 unless $n > 3
774 1 2 unless $self->count
777 0 2 unless defined $index
779 1 1 unless (ref $index)
780 0 1 unless $index > 2
884 1 292 unless $k == 0 + $k and $v == 0 + $v and $v < $INF
888 2 18 if $@
895 0 291 unless $hash->{$_}
900 279 12 if ($newcount > 0) { }
940 63 2 unless %opt
948 5 8 if $_ < $min
949 0 8 if $_ > $max
950 2 6 if $data->{$_} < $noize
991 4 4 if (%opt)
993 2 2 unless exists $opt{'data'}
1027 0 1 unless $factor > 0
1054 1 23 unless $weight
1082 166 3 unless (defined $realmin or defined $realmax)
1090 3 20 unless defined $realmin
1091 3 20 unless defined $realmax
1092 0 23 if $realmin >= $realmax
1109 20 264 if $val > $right
1117 20 3 if ($self->{'data'}{$max})
1119 19 1 $width ? :
1125 20 3 if ($self->{'data'}{$min})
1127 11 9 $width ? :
1173 1 4 unless $self->count
1176 3 1 unless $opt{'index'}
1177 3 1 if (not @index) { }
1179 0 3 unless $n > 0
1189 0 1 unless @index > 1
1200 1 3 if (my $norm = $opt{'normalize_to'})
1238 1 8 unless $self->count
1241 3 5 defined $opt{'min'} ? :
1242 2 6 defined $opt{'max'} ? :
1244 1 7 if ($opt{'ltrim'})
1246 1 0 if defined $newmin and $newmin > $min
1248 1 7 if ($opt{'utrim'})
1250 1 0 if defined $newmax and $newmax < $max
1350 0 5 if @extra
1359 1 6 unless ($method =~ /^[a-zA-Z]/)
1363 1 5 unless ($format{$method})
1364 0 1 unless @$extra
1371 2 3 if ($method =~ s/\?$//) { }
1372 0 2 unless defined $arg
1374 0 3 if defined $arg
1379 1 4 if $method eq 'percentile' and not defined $result
1403 0 300 unless ref $orig_code eq 'CODE'
1409 111 142 unless (exists $_[0]{'cache'}{$name})
1421 143 99 unless (exists $self->{'cache'}{"${name}:$arg"})
1425 150 150 !$arg ? :
1456 31 74 if @_ > 1
1461 9 65 unless $i--
1466 34 31 if (my $val = $self->{'data'}{$bin})
1468 30 4 $width ? :
1482 21 126 unless @$array and $array->[0] < $x
1487 229 176 $array->[$m] < $x ? :
1494 4 70 if defined $array->[$i] and $array->[$i] == $x
1518 1792 89129 if (abs $x <= $self->{'linear_thresh'})
1524 40081 49048 $x < 0 ? :
1534 188 699 if (abs $x <= $self->{'linear_thresh'})
1539 310 389 if ($x > 0) { }