Branch Coverage

blib/lib/Statistics/ANOVA.pm
Criterion Covered Total %
branch 114 230 49.5


line true false branch
184 25 18 if (ref $_[0] eq 'HASH') { }
4 14 elsif (ref $_[0] eq 'ARRAY') { }
186 83 0 if (ref $data)
196 2 0 scalar @_ ? :
12 2 ref $_[0] eq 'ARRAY' ? :
221 5 30 if (scalar @_) { }
365 0 82 unless defined $args{$_}
367 8 33 unless defined $args{'ordinal'}
369 2 39 unless ($self->{'_cleared'})
375 23 18 if ($args{'independent'}) { }
381 9 32 wantarray ? :
390 0 23 if scalar keys %{$data;} < 2
391 0 23 if (&any(sub { not scalar @{$data->{$_};}; } , keys %{$data;}))
394 16 7 if ($args{'parametric'}) { }
395 11 5 if (not $args{'ordinal'}) { }
407 3 2 if ($args{'ordinal'} == 1) { }
416 7 0 unless defined $args{'correct_ties'}
417 4 3 if (not $args{'ordinal'}) { }
418 2 2 unless defined $args{'f_equiv'}
423 3 0 unless defined $args{'tails'}
440 0 18 if $n_bt < 2
443 0 18 if not $n_wt or $n_wt == 1
446 10 8 if ($args{'parametric'}) { }
447 9 1 if (not $args{'ordinal'}) { }
461 6 2 if (not $args{'ordinal'}) { }
462 5 1 unless defined $args{'correct_ties'}
463 0 6 unless defined $args{'f_equiv'}
464 1 5 if ($args{'f_equiv'}) { }
485 2 0 unless defined $args{'tails'}
500 0 16 unless $ss_w and $df_w
513 0 3 unless $ss_w and $df_w
531 0 2 unless $ss_w and $df_w
551 0 4 if $@
556 1 3 if ($f_equiv) { }
580 0 3 if $@
615 0 5 if $@
629 0 1 if $@
643 0 2 if $@
676 0 3 if scalar keys %{$tdata;} <= 1
677 0 3 if (&any(sub { not scalar @{$tdata->{$_};}; } , keys %{$tdata;}))
704 0 11 if (sprintf('%.2f', mean(@{$$self{'obrien'}{$sname};})) != sprintf('%.2f', $v))
722 2 1 wantarray ? :
744 0 2 if scalar keys %{$tdata;} <= 1
745 0 2 if (&any(sub { not scalar @{$tdata->{$_};}; } , keys %{$tdata;}))
776 0 2 wantarray ? :
795 0 2 if $@
813 0 1 if $@
837 0 5 if $@
871 0 2 unless defined $self->{'_stat'}{'df_w'} and defined $self->{'_stat'}{'ms_w'}
875 0 2 if scalar keys %{$data;} <= 1
876 0 2 if (&any(sub { not scalar @{$data->{$_};}; } , keys %{$data;}))
881 2 0 defined $args{'independent'} ? :
884 2 0 unless my $limits = delete $args{'limits'}
885 0 2 defined $args{'use_mse'} ? :
891 0 2 ref $args{'name'} ? :
2 0 defined $args{'name'} ? :
893 0 2 ref $args{'conditions'} ? :
897 2 0 if ($use_mse) { }
907 0 2 if ($limits) { }
917 0 2 scalar keys %confints > 1 ? :
939 0 0 $args{'precision_p'} ? :
941 0 0 if (defined $self->{'_stat'}{'f_value'} and not $self->{'_dfree'}) { }
0 0 elsif (defined $self->{'_stat'}{'h_value'}) { }
0 0 elsif (defined $self->{'_stat'}{'j_value'}) { }
0 0 elsif (defined $self->{'_stat'}{'l_value'}) { }
0 0 elsif (defined $self->{'_stat'}{'chi_value'}) { }
948 0 0 if $args{'mse'}
952 0 0 if $args{'eta_squared'}
956 0 0 if $args{'omega_squared'}
1006 4 4 if (defined $self->{'_stat'}{'f_value'} and not $self->{'_dfree'})
1008 0 4 if defined $self->{'_stat'}{'eta_sq'}
1009 0 4 if defined $self->{'_stat'}{'omega_sq'}
1020 0 8 if defined $self->{'_stat'}{$es}
1044 0 0 if $args{'title'}
1045 0 0 if ($args{'table'}) { }
1047 0 0 if $args{'string'}
1054 0 0 if $self->{'purged'} and $args{'verbose'}
1071 0 1 unless defined $args{'independent'}
1072 0 1 unless defined $args{'ordinal'}
1076 1 0 if ($args{'independent'}) { }
1078 1 0 if (not $args{'ordinal'}) { }
1082 0 0 if ($args{'ordinal'} == 1) { }
1092 0 0 if $n_bt < 2
1095 0 0 if not $n_wt or $n_wt == 1
1100 0 1 wantarray ? :
1113 0 2 unless defined $args{'independent'}
1114 0 2 unless defined $args{'ordinal'}
1117 2 0 if ($args{'independent'}) { }
1118 2 0 if (not $args{'ordinal'}) { }
1122 0 0 if ($args{'ordinal'} == 1) { }
1132 0 0 if $n_bt < 2
1135 0 0 if not $n_wt or $n_wt == 1
1153 0 3 unless defined $args{'independent'}
1156 2 1 if ($args{'independent'}) { }
1161 0 1 if $n_bt < 2
1163 0 1 if not $n_wt or $n_wt == 1
1177 0 0 unless defined $args{'independent'}
1178 0 0 unless defined $args{'ordinal'}
1181 0 0 if ($args{'independent'}) { }
1182 0 0 if (not $args{'ordinal'}) { }
1186 0 0 if ($args{'ordinal'} == 1) { }
1198 0 0 if $n_bt < 2
1201 0 0 if not $n_wt or $n_wt == 1
1276 0 6 if (ref $args{'data'}) { }
5 1 elsif (not defined $args{'independent'} or $args{'independent'} == 1) { }
1286 0 6 if (&any(sub { not scalar @{$data->{$_};}; } , keys %{$data;}))
1307 0 5 if grep {not &looks_like_number($_);} @names
1330 21 3 wantarray ? :
1343 0 10 unless scalar @i_means
1367 1 3 unless ref $aref->[0]
1369 4 2 if (ref $_->[1]) { }
1385 24 0 defined $_[1] ? :
0 24 $_[0] ? :
1392 0 2 if (defined $val) { }
1393 0 0 if ($val > 0 and $val < 1) { }