Branch Coverage

blib/lib/Math/Yapp.pm
Criterion Covered Total %
branch 216 298 72.4


line true false branch
187 5 0 if defined $_[0]
205 1 0 defined $_[0] ? :
225 0 0 if (@_ != 0)
237 12 1 if (defined $_[0])
256 4 0 if (defined $_[0])
266 4 0 if (defined $_[0])
305 37 94 if ($coef_count > 1) { }
84 10 elsif ($coef_count == 1) { }
309 49 35 if (ref $_[0] eq 'ARRAY') { }
317 86 45 if ($aref != 0)
343 95 131 if (ref $class eq $class_name) { }
395 6 376 unless defined $$self{'coeff'}[$slc]
405 98 4 if $$self{'coeff'}[$slc] != 0
419 0 131 if defined $$self{'derivative'}[0]
420 0 131 if defined $$self{'integral'}[0]
426 0 131 unless defined $$self{'variable'}
450 0 79 defined $_[0] ? :
451 0 79 defined $_[0] ? :
461 37 42 if ($start_high) { }
476 79 506 if $lc > $$self{'degree'} or $lc < 0
481 33 473 if (ref $$self{'coeff'}[$lc] eq $class_cplx) { }
488 7 26 if ($lc == $lc_start) { }
5 21 elsif ($lc == 1) { }
1 20 elsif ($lc == 0) { }
497 33 0 if ($$self{'coeff'}[$lc] != $czero or $print_zero)
510 72 401 if ($lc == $lc_start) { }
74 327 elsif ($lc == 1) { }
36 291 elsif ($lc == 0) { }
520 450 23 if ($$self{'coeff'}[$lc] != 0 or $print_zero)
529 79 427 if $lc == 0
533 79 427 if ("$out_string" eq '') { }
536 404 23 if $term ne ''
578 0 34 defined $_[0] ? :
579 0 34 defined $_[0] ? :
580 8 26 if ref $cnum ne $class_cplx
617 0 2237 if $#_ > 0
622 184 2053 if (wantarray) { }
1369 684 elsif (defined wantarray) { }
638 194 1175 if abs $thing < $margin
643 183 992 if (ref $thing eq $class_cplx) { }
646 5 178 if (abs $thing->Re < $margin)
650 37 146 if (abs $thing->Im < $margin)
663 184 500 if (ref $thing eq 'ARRAY') { }
690 0 29 if (ref $coef eq $class_cplx)
714 1 0 if ($$self{'degree'} == $$compr{'degree'}) { }
718 0 6 if $$self{'coeff'}[$dlc] != $$compr{'coeff'}[$dlc]
719 0 6 unless $comp_ok
748 2 2 if ($c_string =~ /^($sign_pat)/u)
750 2 0 $1 eq '-' ? :
764 2 2 $c_pair[1] eq '-' ? :
798 0 516 if ($term_id > $$self{'degree'} or $term_id < 0)
821 79 7 if (@_ == 0) { }
886 0 35 if $testmode
909 3 50 if ($pterms[$tlc] =~ /^[-\+]$/u)
911 0 3 if $tlc == $#pterms
915 0 3 if ($pterms[$tlc + 1] =~ /^[-\+]/u) { }
917 0 0 if ($pterms[$tlc] eq substr($pterms[$tlc + 1], 0, 1)) { }
938 45 5 if ($cur_term =~ /($coef_pat)/u) { }
944 15 30 if ($cur_coeff =~ /^($sign_pat)/u)
946 11 4 $1 eq '-' ? :
953 4 41 if ($cur_coeff =~ /$cplx_pat/u) { }
959 0 41 if $cur_coeff eq ''
975 15 35 if ($cur_term =~ /^($varia_pat)/u) { }
989 5 45 if ($cur_term =~ /($power_pat)/u) { }
991 5 0 if (defined $cur_varia) { }
1001 10 35 defined $cur_varia ? :
1012 12 38 if $cur_degree > $$self{'degree'}
1017 0 15 if (defined $cur_varia and defined $$self{'variable'} and $$self{'variable'} ne $cur_varia)
1029 15 35 if defined $cur_varia
1035 35 15 if (defined $$self{'coeff'}[$cur_degree]) { }
1048 23 12 unless defined $$self{'variable'}
1068 17 2 if (ref $added eq $class_name) { }
2 0 elsif ($added =~ /^($coef_pat)$/u or ref $added eq $class_cplx) { }
1076 108 13 if (defined $builder[$alc]) { }
1079 13 108 if $alc > $$self{'degree'}
1092 2 0 if (defined $$self{'coeff'}[0]) { }
1138 1 6 if (ref $subtractor eq $class_name) { }
1151 6 0 defined $$self{'coeff'}[0] ? :
1176 5 2 if $swapped
1207 56 99 if (ref $multiplier eq "$class_cplx" or ref \$multiplier eq 'SCALAR') { }
99 0 elsif (ref $multiplier eq $class_name) { }
1212 262 45 if $$self{'coeff'}[$ylc] != 0
1227 478 327 unless defined $builder[$term_degree]
1295 1 6 if $swapped
1297 1 5 if $power != int $power
1384 1 6 unless ref $$self{'coeff'}[$clc] eq $class_cplx
1423 10 107 if (wantarray) { }
1558 18 2 defined $_[0] ? :
1563 8 12 if (defined $$self{'derivative'}[$order])
1571 2 10 if (defined $$self{'derivative'}[1]) { }
1583 0 14 if $dlc >= $$self{'degree'}
1585 10 4 if ($dlc == 0) { }
1622 0 2 unless $#_ == 2 or $#_ == 0
1631 1 1 if $#_ == 1
1638 1 1 if (ref $$self{'integral'} ne $class_name) { }
1653 1 1 unless defined $l_limit
1707 0 25 if ($solu_end == 0)
1731 0 25 if ($degree == 1) { }
16 9 elsif ($degree == 2) { }
4 5 elsif ($degree == 3) { }
3 2 elsif ($degree == 4) { }
0 2 elsif (not $self->all_real) { }
1 1 elsif ($degree % 2 == 1) { }
1797 0 10 if abs $yp == 0
1800 9 1 if abs $xn - $xc < $margin
1803 0 1 if $testmode
1862 0 4 $norms[0] > $norms[1] ? :
1868 0 4 if $testmode
1894 0 16 if ($discr == 0) { }
5 11 elsif ($discr > 0) { }
1911 0 11 if $testmode
1942 0 4 if ($$self{'coeff'}[3] == 1) { }
1949 0 4 if $testmode
1952 4 0 if ($$monic{'coeff'}[2] != 0) { }
1956 0 4 if $testmode
1979 0 4 if $testmode
1999 1 10 if (ref $u_roots[$rlc] ne $class_cplx)
2030 0 4 if (ref $solutions[0] eq $class_cplx and $allreal) { }
2073 0 3 if ($$self{'coeff'}[4] == 1) { }
2080 0 3 if $testmode
2083 3 0 if ($$monic{'coeff'}[3] != 0) { }
2087 0 3 if $testmode
2143 3 0 if ref $rc_plug ne $class_cplx
2155 0 3 if ($testmode)
2186 0 3 if $testmode
2243 1 2 if ($left_try == 0) { }
2266 1 3 if $betw_eval == 0
2267 0 3 $left_eval >= 0 ? :
2268 3 0 $right_eval >= 0 ? :
2269 1 2 $betw_eval >= 0 ? :
2275 1 2 if ($left_sign != $betw_sign) { }
2290 1 0 $betw_eval == 0 ? :
2302 1 0 if abs $zzero >= $margin
2316 1 0 if ($$quotient{'degree'} > 0)
2360 1 0 if (ref $xn eq $class_cplx) { }
2372 1 0 if abs $zzero >= $margin
2389 0 0 if abs $zzero >= $margin
2400 1 0 if ($$quotient{'degree'} > 0)
2440 0 0 if (ref $xn eq $class_cplx) { }
2444 0 0 if (abs $conj_zero < $margin)
2455 0 0 if abs $zzero >= $margin
2464 0 0 if (abs $conj_zero < $margin)
2476 0 0 if abs $zzero >= $margin
2487 0 0 if ($$quotient{'degree'} > 0)
2527 0 2 unless $pcount >= 2
2539 0 3 unless $ycount == $xcount
2548 1 1 $derivs == 2 ? :
2683 11 54 if $mlc == $xlc
2717 2 0 ref $_[0] eq 'ARRAY' ? :