Branch Coverage

blib/lib/Math/Complex.pm

Criterion	Covered	Total	%
branch	373	480	77.7

line	true	false	branch
32	0	3	unless defined $nvsize
34	0	3	unless defined $DBL_MAX{$nvsize}
37	0	3	unless defined $DBL_MAX
40	0	3	if ($^O eq 'unicosmk') { }
58	3	0	if (defined $i and $i > $BIGGER_THAN_THIS)
63	0	3	unless defined $Inf
64	0	3	unless $Inf > $BIGGER_THAN_THIS
80	3	0	if ($] >= 5.01)
183	570	178	if ($arg =~ /^$gre$/) { }
	177	1	elsif ($arg =~ /^(?:$gre)?$gre\s*i\s*$/) { }
	1	0	elsif ($arg =~ /^\s*\(\s*$gre\s*(?:,\s*$gre\s*)?\)\s*$/) { }
191	748	0	if (defined $p)
205	6	7	if ($arg =~ /^\s*\[\s*$gre\s*(?:,\s*$gre\s*)?\]\s*$/) { }
	6	1	elsif ($arg =~ m(^\s*\[\s*$gre\s*(?:,\s*([-+]?\d*\s*)?pi(?:/\s*(\d+))?\s*)?\]\s*$)) { }
	0	1	elsif ($arg =~ /^\s*\[\s*$gre\s*\]\s*$/) { }
	1	0	elsif ($arg =~ /^\s*$gre\s*$/) { }
208	1	5	$2 eq '-' ? :
215	13	0	if (defined $p)
228	1	0	if ($$self{'cartesian'})
231	0	1	if ($$self{'polar'})
246	2	6498	if (@_ == 0) { }
	757	5741	elsif (@_ == 1) { }
	5741	0	elsif (@_ == 2) { }
249	9	748	if $_[0] =~ /^\s*\[/
255	6491	0	if (defined $re)
256	0	6491	unless $re =~ /^$gre$/
259	0	6491	unless $im =~ /^$gre$/
274	2	549	if (@_ == 0) { }
	13	536	elsif (@_ == 1) { }
	536	0	elsif (@_ == 2) { }
277	0	13	if $_[0] =~ /^\s*\(/ or $_[0] =~ /i\s*$/
283	551	0	if (defined $rho and defined $theta)
284	2	549	if ($rho < 0)
286	2	0	$theta <= 0 ? :
289	551	0	if (defined $rho)
290	0	551	unless $rho =~ /^$gre$/
293	0	551	unless $theta =~ /^$gre$/
370	551	1	if $i
390	501	14254	$_[0]{'c_dirty'} ? :
392	1144	669	$_[0]{'p_dirty'} ? :
422	313	831	if $x == 0 and $y == 0
435	265	219	unless ref $z2
436	484	0	ref $z2 ? :
437	7	477	unless (defined $regular)
452	196	867	unless ref $z2
454	7	1056	unless (defined $inverted)
458	76	980	$inverted ? :
471	32	499	if ($$z1{'p_dirty'} == 0 and ref $z2 and $$z2{'p_dirty'} == 0) { }
476	8	24	if ($t > 3.1415926535897931) { }
	0	24	elsif ($t <= -3.1415926535897931) { }
478	0	32	unless (defined $regular)
485	302	197	if (ref $z2) { }
502	10	6	if (defined $_[1])
504	6	4	unless "$_[1]" eq '0'
522	2	981	if ($$z1{'p_dirty'} == 0 and ref $z2 and $$z2{'p_dirty'} == 0) { }
527	0	2	if ($inverted) { }
528	0	0	if $r1 == 0
530	0	0	if ($t > 3.1415926535897931) { }
	0	0	elsif ($t <= -3.1415926535897931) { }
534	0	2	if $r2 == 0
536	0	2	if ($t > 3.1415926535897931) { }
	0	2	elsif ($t <= -3.1415926535897931) { }
542	463	518	if ($inverted) { }
545	0	463	if $d == 0
549	333	185	if (ref $z2) { }
552	0	333	if $d == 0
557	1	184	if $z2 == 0
571	0	97	if ($inverted) { }
572	0	0	if $z1 == 0 or $z2 == 1
573	0	0	if $z2 == 0 and Re($z1) > 0
575	10	87	if $z2 == 0 or $z1 == 1
576	4	83	if $z1 == 0 and Re($z2) > 0
578	0	83	$inverted ? :
583	83	0	$$z1{'c_dirty'} == 0 && (!ref($z2) || $$z2{'c_dirty'} == 0) ? :
594	4	0	ref $z1 ? :
595	4	0	ref $z2 ? :
596	0	4	$inverted ? :
597	2	2	if $re1 != $re2
609	1599	0	ref $z1 ? :
610	467	1132	ref $z2 ? :
611	34	1565	$re1 == $re2 && $im1 == $im2 ? :
621	1	182	if ($$z{'c_dirty'})
623	0	1	$t <= 0 ? :
637	3	15	if ($$z{'c_dirty'})
651	810	1	@_ ? :
652	1	810	unless (ref $z)
653	0	1	if (@_ == 2) { }
659	1	809	if (defined $rho) { }
672	0	40	if ($$theta > 3.1415926535897931) { }
	0	40	elsif ($$theta <= -3.1415926535897931) { }
683	0	40	unless ref $z
684	1	39	if (defined $theta) { }
712	167	1	@_ ? :
713	145	23	ref $z ? :
714	14	74	$re < 0 ? :
	88	80	if $im == 0
729	11	0	$z > 0 ? :
	0	11	$z < 0 ? :
	11	11	unless ref $z
734	0	11	if $r == 0
765	4	56	if $n < 1 or int $n != $n
767	1	0	$z >= 0 ? :
	55	1	ref $z ? :
771	34	22	if (@_ == 2) { }
	22	0	elsif (@_ == 3) { }
778	179	11	$cartesian ? :
783	22	0	$cartesian ? :
794	0	32	unless ref $z
795	1	31	if (defined $Re) { }
811	0	38	unless ref $z
812	6	32	if (defined $Im) { }
845	160	1	@_ ? :
846	1	160	unless ref $z
859	1	4	if (defined $_[1])
861	1	0	unless $_[1] eq '0'
878	516	1	@_ ? :
879	45	472	unless (ref $z)
880	0	45	if $z == 0
881	45	0	$z > 0 ? :
884	1	471	if $r == 0
885	0	471	if ($t > 3.1415926535897931) { }
	0	471	elsif ($t <= -3.1415926535897931) { }
914	0	22	unless ref $z
916	2	20	unless defined $logn
926	192	1	@_ ? :
927	5	188	unless ref $z
932	188	0	$ey ? :
943	215	1	@_ ? :
944	7	209	unless ref $z
949	209	0	$ey ? :
962	0	41	if $cz == 0
974	0	34	if $cz == 0
986	1	55	if $sz == 0
1005	1	55	if $sz == 0
1023	28	71	if not ref $z and CORE::abs $z <= 1
1025	0	71	unless ref $z
1027	2	69	if $x == 1 and $y == 0
1032	0	69	if $alpha < 1
1033	0	69	if ($beta > 1) { }
	0	69	elsif ($beta < -1) { }
1037	20	49	if $y > 0 or $y == 0 and $x < -1
1048	12	94	if not ref $z and CORE::abs $z <= 1
1050	1	93	unless ref $z
1052	1	93	if $x == 0 and $y == 0
1057	0	93	if $alpha < 1
1058	0	93	if ($beta > 1) { }
	0	93	elsif ($beta < -1) { }
1062	24	69	if $y > 0 or $y == 0 and $x < -1
1073	1	74	unless ref $z
1074	74	0	ref $z ? :
1075	1	73	if $x == 0 and $y == 0
1076	2	71	if $z == i
1077	1	70	if -$z == i
1089	1	33	if $z == 0
1100	1	55	if $z == 0
1118	1	46	if $z == 0
1119	1	0	$z >= 0 ? :
	1	45	unless ref $z
1121	1	44	if $z - i == 0
1122	1	43	if $z + i == 0
1141	23	174	unless (ref $z)
1143	4	15	$ex == $ExpInf ? :
	19	4	$ex ? :
1147	174	0	$ex ? :
1160	23	196	unless (ref $z)
1161	2	21	if $z == 0
1163	4	13	$ex == $ExpInf ? :
	17	4	$ex ? :
1169	196	0	$ex ? :
1182	0	42	if $cz == 0
1184	2	40	if $cz == $sz
1185	2	38	if $cz == -$sz
1197	0	36	if $cz == 0
1209	1	55	if $sz == 0
1228	1	55	if $sz == 0
1230	2	53	if $cz == $sz
1231	2	51	if $cz == -$sz
1249	2	59	unless (ref $z)
1253	32	29	if ($im == 0)
1254	14	18	if $re >= 1
1256	13	5	if CORE::abs $re < 1
1263	0	34	if $t == 0
1266	5	29	if $re < 0 and $im == 0
1267	17	17	$re < 0 ? :
1277	3	71	unless (ref $z)
1279	3	0	if $t
1285	0	71	if $t == 0
1297	3	31	unless (ref $z)
1298	1	2	if CORE::abs $z < 1
1301	1	32	if 1 - $z == 0
1302	1	31	if 1 + $z == 0
1313	1	27	if $z == 0
1324	1	40	if $z == 0
1342	1	39	if $z == 0
1343	3	36	unless (ref $z)
1344	1	2	if CORE::abs $z > 1
1347	1	37	if $z - 1 == 0
1348	1	36	if 1 + $z == 0
1367	0	40	if ($inverted) { }
1368	0	0	ref $z2 ? :
1369	0	0	ref $z1 ? :
1371	3	37	ref $z1 ? :
1372	3	37	ref $z2 ? :
1374	4	36	if ($im1 or $im2)
1380	0	4	if $s == 0
1405	18462	1	if (ref $self)
1406	11419	7043	if (exists $$self{'display_format'})
1411	7043	11420	if (@_ == 1) { }
1418	18462	1	if (ref $self)
1422	5713	12749	wantarray ? :
1430	0	1	wantarray ? :
1449	0	5699	unless defined $style
1451	268	5431	if $style =~ /^p/i
1468	3966	1472	if ($x) { }
1469	0	3966	if ($x =~ /^NaN[QS]?$/i) { }
1472	0	3966	if ($x =~ /^-?\Q$Inf\E$/io) { }
1475	4	3962	defined $format ? :
1482	3565	1873	if ($y) { }
1483	0	3565	if ($y =~ /^(NaN[QS]?)$/i) { }
1486	0	3565	if ($y =~ /^-?\Q$Inf\E$/io) { }
1489	97	2308	$y == -1 ? :
	1156	2405	$y == 1 ? :
	4	3561	defined $format ? :
1502	3565	1873	if (defined $im) { }
	94	1779	elsif (not defined $re) { }
1503	1049	2516	if ($y < 0) { }
	2516	0	elsif ($y > 0 or $im =~ /^NaN[QS]?i$/i) { }
1506	1198	1318	if defined $re
1530	0	273	if ($t =~ /^NaN[QS]?$/i or $t =~ /^-?\Q$Inf\E$/io) { }
	5	268	elsif ($t == 3.1415926535897931) { }
	12	256	elsif ($r == 0 or $t == 0) { }
1535	0	12	defined $format ? :
1538	17	256	if defined $theta
1546	252	4	if ($format{'polar_pretty_print'} and $t)
1550	60	1556	if ($b =~ /^-?\d+$/)
1551	24	13	$b < 0 ? :
	37	23	if CORE::abs $b == 1
1558	2	254	if (defined $format) { }
1560	2	0	unless defined $theta
1562	194	60	unless defined $theta