Branch Coverage

blib/lib/Statistics/Data.pm
Criterion Covered Total %
branch 123 180 68.3


line true false branch
62 0 7 ref $class ? :
187 27 17 if (defined $val->{'lab'}) { }
214 23 1 if (not $args[0]) { }
219 1 0 if (defined $i)
262 24 0 if (defined $i)
288 1 7 if (not ref $name_aref) { }
290 2 0 if (hascontent($self->{'_DATA'}[$i]{'lab'}))
300 9 2 if (defined $j)
305 1 7 wantarray ? :
351 1 4 if (not ref $name_aref) { }
360 3 1 if (defined $j)
365 0 5 wantarray ? :
381 5 6 ref $var ? :
11 2 hascontent($var) ? :
387 11 2 $str ? :
403 0 0 if (nocontent($name_aref) and ref $self->{'_DATA'}[-1]{'seq'}) { }
410 0 0 if (defined $i)
442 2 0 if (hascontent($self->{'_DATA'}[$_]{'lab'}))
462 3 0 ref $args[0] ? :
465 3 21 nocontent($_) ? :
466 5 19 if (wantarray) { }
467 3 2 if ($bool)
472 1 18 if $bool == 0
475 1 2 wantarray ? :
492 3 4 if (ref $args[0] eq 'ARRAY') { }
497 4 0 if (defined $i)
501 7 0 if (ref $data) { }
503 8 50 _nan($_) ? :
504 5 53 if (wantarray) { }
505 2 3 if ($bool)
510 5 48 if $bool == 0
514 1 6 wantarray && $data ? :
537 1 4 ref $args[0] ? :
540 3 12 if (nocontent($_)) { }
11 1 elsif (&looks_like_number($_)) { }
544 2 9 $_ < 0 || $_ > 1 ? :
546 5 10 if (wantarray) { }
547 1 4 if ($bool)
552 2 8 if $bool == 0
555 1 4 wantarray ? :
570 0 3 ref $args[0] ? :
573 0 5 if (nocontent($_)) { }
5 0 elsif (&looks_like_number($_)) { }
577 3 2 $_ >= 0 && $_ == int $_ ? :
582 0 5 if (wantarray) { }
583 0 0 if ($bool)
588 2 3 if $bool == 0
591 0 3 wantarray ? :
606 0 2 ref $args[0] ? :
609 0 5 if (nocontent($_)) { }
5 0 elsif (&looks_like_number($_)) { }
613 4 1 $_ > 0 ? :
615 0 5 if (wantarray) { }
616 0 0 if ($bool)
621 1 4 if $bool == 0
624 0 2 wantarray ? :
639 0 0 $args{'data'} ? :
641 0 0 if scalar @{$data;} == 1
643 0 0 if ($n != scalar @{$data->[$_];})
664 0 0 $args{'data'} ? :
667 0 0 if (_nan($data->[$i]))
688 0 0 ref $args[0] ? :
690 0 0 unless print {*STDOUT;} join($delim, @{$self->access($args);}), "\n"
705 0 0 $lim > 5 ? :
710 0 0 defined $self->{'_DATA'}[$i]{'lab'} ? :
714 0 0 if ($len_lab > $maxlens[1])
717 0 0 if ($len_n > $maxlens[2])
729 0 0 unless print {*STDOUT;} $tbl->draw
742 3 4 if (_nan($hoa->{$name}[$i])) { }
750 0 2 unless scalar @clean
765 7 16 if (_nan($hoa->{$name}[$i]))
784 15 3 if ($idx < scalar @{$clean{$name};})
801 5 29 if (_isa_hashref_of_arefs($args[0])) { }
19 10 elsif (_isa_hash_of_arefs(@args)) { }
8 2 elsif (_isa_array_of_arefs(@args)) { }
811 0 2 if (ref $args[0]) { }
826 29 5 if (not ref $arg or ref $arg ne 'HASH') { }
842 26 8 if (is_even(scalar @args)) { }
847 34 2 if (hascontent($lab) and ref $val eq 'ARRAY') { }
853 2 34 if $bool == 0
864 8 2 if (&all(sub { ref $_ eq 'ARRAY'; } , @args)) { }
877 7 27 if (defined $j) { }
900 10 19 if (not $args[0]) { }
904 0 19 ref $args[0] ? :
905 0 19 if (hascontent($args->{'index'})) { }
19 0 elsif (hascontent($args->{'label'})) { }
922 38 17 if ($self->{'_DATA'}[$i]{'lab'} and $self->{'_DATA'}[$i]{'lab'} eq $label)
929 38 30 $k ? :
935 2 0 if (hascontent($dat->{'lab'})) { }
946 18 70 !&looks_like_number(shift()) ? :