Branch Coverage

blib/lib/Math/Cephes/Polynomial.pm
Criterion Covered Total %
branch 108 194 55.6


line true false branch
25 0 40 unless $refer or $arr
28 2 38 if ($refer) { }
32 1 1 if (ref $cdata eq 'ARRAY') { }
36 1 0 $type eq 'fract' ? :
62 0 39 unless ref $arr eq "ARRAY"
65 0 39 if defined $ref_in and $ref_in ne $ref
69 21 18 unless ($ref)
72 0 3124 if ref $_
76 1 20 unless $Math::Cephes::Polynomial::flag
79 5 13 if ($ref eq "Math::Cephes::Complex")
82 0 15 unless ref $_ eq $ref
84 0 15 if defined $ref_in and $ref_in ne $ref
89 0 5 unless $Math::Cephes::Polynomial::flag
92 3 10 if ($ref eq "Math::Complex")
95 0 9 unless ref $_ eq $ref
97 0 9 if defined $ref_in and $ref_in ne $ref
102 0 3 unless $Math::Cephes::Polynomial::flag
105 10 0 if ($ref eq "Math::Cephes::Fraction")
108 0 33 unless ref $_ eq $ref
110 0 33 if defined $ref_in and $ref_in ne $ref
116 1 9 unless $Math::Cephes::Polynomial::fflag
119 0 0 if ($ref eq "Math::Fraction")
122 0 0 unless ref $_ eq $ref
124 0 0 if defined $ref_in and $ref_in ne $ref
129 0 0 unless $Math::Cephes::Polynomial::fflag
142 0 0 if $d > $n
147 0 0 if ($type eq "fract")
150 0 0 $n < 0 ? :
151 0 0 $j == 0 ? :
155 0 0 if ($type eq "cmplx")
158 0 0 $j == 0 ? :
159 0 0 int $im / abs($im) == -1 ? :
0 0 $im < 0 ? :
165 0 0 $f < 0 ? :
166 0 0 $j == 0 ? :
169 0 0 $j > 0 ? :
180 2 1 ref $b eq 'Math::Cephes::Polynomial' ? :
185 1 2 if ($atype eq "fract")
186 1 0 $na > $nb ? :
194 0 3 $aref eq 'Math::Fraction' ? :
200 1 1 if ($atype eq "cmplx")
201 1 0 $na > $nb ? :
209 0 3 $aref eq 'Math::Complex' ? :
215 0 1 $na > $nb ? :
219 0 3 wantarray ? :
230 3 0 ref $b eq 'Math::Cephes::Polynomial' ? :
235 1 2 if ($atype eq "fract")
236 1 0 $na > $nb ? :
244 0 3 $aref eq 'Math::Fraction' ? :
250 1 1 if ($atype eq "cmplx")
251 0 1 $na > $nb ? :
259 0 3 $aref eq 'Math::Complex' ? :
265 1 0 $na > $nb ? :
269 0 3 wantarray ? :
280 4 0 ref $b eq 'Math::Cephes::Polynomial' ? :
285 1 3 if ($atype eq "fract")
294 0 4 $aref eq 'Math::Fraction' ? :
300 2 1 if ($atype eq "cmplx")
310 4 4 $aref eq 'Math::Complex' ? :
320 0 4 wantarray ? :
330 1 0 ref $b eq 'Math::Cephes::Polynomial' ? :
335 0 1 if ($atype eq "fract")
344 0 0 $aref eq 'Math::Fraction' ? :
350 0 1 if ($atype eq "cmplx")
358 0 1 wantarray ? :
366 0 2 unless $Math::Cephes::Polynomial::flag
368 1 1 if $n > $na
370 1 1 if ($atype eq "fract")
377 0 1 if ($atype eq "cmplx")
396 3 0 ref $b eq 'Math::Cephes::Polynomial' ? :
398 0 3 unless $Math::Cephes::Polynomial::flag
402 2 1 if ($atype eq "fract")
412 0 6 $aref eq 'Math::Fraction' ? :
418 0 1 if ($atype eq "cmplx")
428 0 3 wantarray ? :
449 4 6 if ($atype eq "fract")
453 2 2 unless ($xref)
457 2 0 if ($xref eq "Math::Cephes::Fraction")
460 0 0 if ($xref eq "Math::Fraction")
467 0 4 if $aref eq "Math::Fraction"
470 2 4 if ($atype eq "cmplx")
473 1 1 $aref eq 'Math::Complex' ? :
496 0 2 if $type eq "cmplx"
501 0 2 if $atype eq "cmplx"
503 1 1 $atype eq 'fract' ? :
507 2 0 ref $bin eq 'Math::Cephes::Polynomial' ? :
510 0 2 if $btype eq "cmplx"
512 1 1 $btype eq 'fract' ? :
522 0 3 if $type eq "cmplx"
524 2 1 $type eq 'fract' ? :
533 0 3 if $type eq "cmplx"
535 2 1 $type eq 'fract' ? :
544 0 3 if $type eq "cmplx"
546 2 1 $type eq 'fract' ? :
561 1 1 if ($atype eq "fract")
570 0 1 if ($atype eq "cmplx")
580 2 0 wantarray ? :