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 ? :