Branch Coverage

blib/lib/Math/Yapp.pm
Criterion Covered Total %
branch 225 320 70.3


line true false branch
187 6 0 if defined $_[0]
205 1 0 defined $_[0] ? :
225 0 0 if (@_ != 0)
237 13 1 if (defined $_[0])
256 5 0 if (defined $_[0])
266 5 0 if (defined $_[0])
305 41 107 if ($coef_count > 1) { }
95 12 elsif ($coef_count == 1) { }
309 56 39 if (ref $_[0] eq 'ARRAY') { }
317 97 51 if ($aref != 0)
343 117 148 if (ref $class eq $class_name) { }
395 6 458 unless defined $self->{'coeff'}[$slc]
405 109 4 if $self->{'coeff'}[$slc] != 0
420 0 148 if defined $self->{'derivative'}[0]
421 0 148 if defined $self->{'integral'}[0]
427 0 148 unless defined $self->{'variable'}
451 0 100 defined $_[0] ? :
452 0 100 defined $_[0] ? :
462 51 49 if ($start_high) { }
477 100 667 if $lc > $self->{'degree'} or $lc < 0
482 82 585 if (ref $self->{'coeff'}[$lc] eq $class_cplx) { }
493 14 68 if ($lc == $lc_start) { }
12 56 elsif ($lc == 1) { }
8 48 elsif ($lc == 0) { }
528 86 499 if ($lc == $lc_start) { }
88 411 elsif ($lc == 1) { }
43 368 elsif ($lc == 0) { }
552 60 525 if ($self->coefficient($lc) == 0)
557 25 35 unless $print_zero
563 100 567 if $lc == 0
567 100 567 if ("$out_string" eq '') { }
570 542 25 if $term ne ""
611 0 40 defined $_[0] ? :
612 0 40 defined $_[0] ? :
613 8 32 if ref $cnum ne $class_cplx
650 0 2855 if $#_ > 0
655 222 2633 if (wantarray) { }
1817 816 elsif (defined wantarray) { }
671 252 1565 if abs $thing < $margin
676 240 1325 if (ref $thing eq $class_cplx) { }
679 5 235 if (abs $thing->Re < $margin)
683 37 203 if (abs $thing->Im < $margin)
696 222 594 if (ref $thing eq 'ARRAY') { }
723 0 29 if (ref $coef eq $class_cplx)
747 1 0 if ($self->{'degree'} == $compr->{'degree'}) { }
751 0 6 if $self->{'coeff'}[$dlc] != $compr->{'coeff'}[$dlc]
752 0 6 unless $comp_ok
781 2 2 if ($c_string =~ /^($sign_pat)/)
783 2 0 $1 eq '-' ? :
797 2 2 $c_pair[1] eq '-' ? :
831 0 1334 if ($term_id > $self->{'degree'} or $term_id < 0)
854 100 7 if (@_ == 0) { }
919 0 39 if $testmode
942 3 54 if ($pterms[$tlc] =~ /^[-\+]$/)
944 0 3 if $tlc == $#pterms
948 0 3 if ($pterms[$tlc + 1] =~ /^[-\+]/) { }
950 0 0 if ($pterms[$tlc] eq substr($pterms[$tlc + 1], 0, 1)) { }
971 49 5 if ($cur_term =~ /($coef_pat)/) { }
977 15 34 if ($cur_coeff =~ /^($sign_pat)/)
979 11 4 $1 eq '-' ? :
986 4 45 if ($cur_coeff =~ /$cplx_pat/) { }
992 0 45 if $cur_coeff eq ""
1008 15 39 if ($cur_term =~ /^($varia_pat)/) { }
1022 5 49 if ($cur_term =~ /($power_pat)/) { }
1024 5 0 if (defined $cur_varia) { }
1034 10 39 defined $cur_varia ? :
1045 12 42 if $cur_degree > $self->{'degree'}
1050 0 15 if (defined $cur_varia and defined $self->{'variable'} and $self->{'variable'} ne $cur_varia)
1062 15 39 if defined $cur_varia
1068 39 15 if (defined $self->{'coeff'}[$cur_degree]) { }
1081 27 12 unless defined $self->{'variable'}
1101 21 2 if (ref $added eq $class_name) { }
2 0 elsif ($added =~ /^($coef_pat)$/ or ref $added eq $class_cplx) { }
1109 184 17 if (defined $builder[$alc]) { }
1112 17 184 if $alc > $self->{'degree'}
1125 2 0 if (defined $self->{'coeff'}[0]) { }
1171 1 8 if (ref $subtractor eq $class_name) { }
1185 8 0 defined $self->{'coeff'}[0] ? :
1209 7 2 if $swapped
1240 66 127 if (ref $multiplier eq "$class_cplx" or ref \$multiplier eq 'SCALAR') { }
127 0 elsif (ref $multiplier eq $class_name) { }
1246 358 57 if $self->{'coeff'}[$ylc] != 0
1260 724 621 unless defined $builder[$term_degree]
1328 1 8 if $swapped
1330 1 7 if $power != int $power
1402 0 9 if ($testmode)
1404 0 0 if (defined wantarray) { }
1406 0 0 if (wantarray) { }
1417 9 0 if (defined wantarray) { }
1446 3 0 defined wantarray ? :
1451 9 11 unless ref $ryapp->{'coeff'}[$clc] eq $class_cplx
1454 3 0 if defined wantarray
1490 10 119 if (wantarray) { }
1625 20 2 defined $_[0] ? :
1630 8 14 if (defined $self->{'derivative'}[$order])
1638 2 12 if (defined $self->{'derivative'}[1]) { }
1650 0 16 if $dlc >= $self->{'degree'}
1652 12 4 if ($dlc == 0) { }
1689 0 4 unless $#_ == 2 or $#_ == 0
1698 3 1 if $#_ == 1
1705 3 1 if (ref $self->{'integral'} ne $class_name) { }
1720 1 3 unless defined $l_limit
1774 0 25 if ($solu_end == 0)
1798 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) { }
1864 0 10 if abs $yp == 0
1867 9 1 if abs $xn - $xc < $margin
1870 0 1 if $testmode
1929 0 4 $norms[0] > $norms[1] ? :
1935 0 4 if $testmode
1961 0 16 if ($discr == 0) { }
5 11 elsif ($discr > 0) { }
1978 0 11 if $testmode
2009 0 4 if ($self->{'coeff'}[3] == 1) { }
2016 0 4 if $testmode
2019 4 0 if ($monic->{'coeff'}[2] != 0) { }
2023 0 4 if $testmode
2046 0 4 if $testmode
2066 1 10 if (ref $u_roots[$rlc] ne $class_cplx)
2097 0 4 if (ref $solutions[0] eq $class_cplx and $allreal) { }
2140 0 3 if ($self->{'coeff'}[4] == 1) { }
2147 0 3 if $testmode
2150 3 0 if ($monic->{'coeff'}[3] != 0) { }
2154 0 3 if $testmode
2210 3 0 if ref $rc_plug ne $class_cplx
2222 0 3 if ($testmode)
2253 0 3 if $testmode
2310 1 2 if ($left_try == 0.0) { }
2333 1 3 if $betw_eval == 0
2334 0 3 $left_eval >= 0 ? :
2335 3 0 $right_eval >= 0 ? :
2336 1 2 $betw_eval >= 0 ? :
2342 1 2 if ($left_sign != $betw_sign) { }
2357 1 0 $betw_eval == 0.0 ? :
2369 1 0 if abs $zzero >= $margin
2383 1 0 if ($quotient->{'degree'} > 0)
2427 1 0 if (ref $xn eq $class_cplx) { }
2439 1 0 if abs $zzero >= $margin
2456 0 0 if abs $zzero >= $margin
2467 1 0 if ($quotient->{'degree'} > 0)
2507 0 0 if (ref $xn eq $class_cplx) { }
2511 0 0 if (abs $conj_zero < $margin)
2522 0 0 if abs $zzero >= $margin
2531 0 0 if (abs $conj_zero < $margin)
2543 0 0 if abs $zzero >= $margin
2554 0 0 if ($quotient->{'degree'} > 0)
2594 0 2 unless $pcount >= 2
2606 0 3 unless $ycount == $xcount
2615 1 1 $derivs == 2 ? :
2750 13 72 if $mlc == $xlc
2784 2 0 ref $_[0] eq 'ARRAY' ? :
2830 2 0 if $testmode
2835 2 0 if $testmode
2840 2 0 if $testmode
2845 2 0 if $testmode
2866 0 0 if abs $innerprod <= $margin