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 ? :
178 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 ? :
228 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 ? :
278 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 ? :
328 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')
394 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' ? :
505 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 ? :