Branch Coverage

blib/lib/ICC/Shared.pm

Criterion	Covered	Total	%
branch	8	384	2.0

line	true	false	branch
68	0	0	unless defined $n
71	0	0	if $n == 0
74	0	0	unless not ref $n and $n == int $n and $n > 0
77	0	0	unless ref $self
80	0	0	wantarray ? :
94	0	0	unless $self->can('sdump')
303	30	0	$_[0] > 0.0088564516790356311 ? :
313	120	0	$_[0] > 8 ? :
326	0	0	$x > 0.0088564516790356311 ? :
339	0	0	$L > 8 ? :
413	0	0	if $x <= 0 or $y <= 0 or $x <= 0
467	0	0	$_[2] || $_[1] ? :
470	0	0	if $h1 < 0
476	0	0	$h1 >= 164 && $h1 <= 345 ? :
479	0	0	$_[0] < 16 ? :
488	0	0	defined $_[6] ? :
491	0	0	defined $_[7] ? :
575	0	0	$_[2] || $a1p ? :
578	0	0	if $h1p < 0
581	0	0	$_[5] || $a2p ? :
584	0	0	if $h2p < 0
587	0	0	if (abs $h1p - $h2p > 180) { }
590	0	0	if ($h2p > $h1p) { }
613	0	0	if ($C1p == 0 or $C2p == 0) { }
621	0	0	if (abs $h1p - $h2p > 180) { }
745	0	0	$derv > 0 ? :
772	0	0	if abs $derv < 1e-09
775	0	0	if $derv > 0 ^ $derv0 > 0
851	0	0	unless $d = $X + $Y + $Z
886	0	0	unless $d = $X + 15 * $Y + 3 * $Z
903	0	0	unless my $d = $X + 15 * $Y + 3 * $Z
920	0	0	unless my $d = 12 * $y - 2 * $x + 3
939	0	0	unless $cct >= 4000 and $cct <= 25000
948	0	0	if ($cct > 7000) { }
999	0	0	unless ($ix = $#{$vector_in;}) > 0
1002	0	0	unless abs $ix * $range_in->[2] - $range_in->[1] + $range_in->[0] < 1e-12 and $range_in->[2] > 0
1005	0	0	unless ($ox = round(($range_out->[1] - $range_out->[0]) / $range_out->[2])) > 0
1008	0	0	unless abs $ox * $range_out->[2] - $range_out->[1] + $range_out->[0] < 1e-12 and $range_out->[2] > 0
1017	0	0	if ($w < $range_in->[0]) { }
	0	0	elsif ($w > $range_in->[1]) { }
	0	0	elsif ($w == $range_in->[1]) { }
1020	0	0	if (defined $ext) { }
1023	0	0	if ($ext eq 'linear') { }
1055	0	0	if (defined $ext) { }
1058	0	0	if ($ext eq 'linear') { }
1098	0	0	if ($t) { }
1139	0	0	unless $ix > 0 and abs $ix * $range_in->[2] - $range_in->[1] + $range_in->[0] < 1e-12 and $range_in->[2] > 0
1145	0	0	unless $ox > 0 and abs $ox * $range_out->[2] - $range_out->[1] + $range_out->[0] < 1e-12 and $range_out->[2] > 0
1148	0	0	if ($lapack) { }
1167	0	0	if ($w < $range_in->[0]) { }
	0	0	elsif ($w > $range_in->[1]) { }
	0	0	elsif ($w == $range_in->[1]) { }
1170	0	0	if (defined $ext)
1173	0	0	if ($ext eq 'linear') { }
1201	0	0	if (defined $ext)
1204	0	0	if ($ext eq 'linear') { }
1268	0	0	unless ($ix = $#{$vector_in;}) > 0
1271	0	0	unless abs $ix * $range_in->[2] - $range_in->[1] + $range_in->[0] < 1e-12 and $range_in->[2] > 0
1274	0	0	unless ($ox = round(($range_out->[1] - $range_out->[0]) / $range_out->[2])) > 0
1277	0	0	unless abs $ox * $range_out->[2] - $range_out->[1] + $range_out->[0] < 1e-12 and $range_out->[2] > 0
1283	0	0	if ($lapack) { }
1289	0	0	$i + 1 > $ix ? :
	0	0	$i - 1 < 0 ? :
1306	0	0	$i + 1 > $ix ? :
	0	0	$i - 1 < 0 ? :
1322	0	0	if ($w < $range_in->[0]) { }
	0	0	elsif ($w > $range_in->[1]) { }
	0	0	elsif ($w == $range_in->[1]) { }
1325	0	0	if (defined $ext) { }
1328	0	0	if ($ext eq 'linear') { }
1357	0	0	if (defined $ext) { }
1360	0	0	if ($ext eq 'linear') { }
1397	0	0	if ($t) { }
1400	0	0	if ($lapack) { }
1456	0	0	unless $ix > 0 and abs $ix * $range_in->[2] - $range_in->[1] + $range_in->[0] < 1e-12 and $range_in->[2] > 0
1462	0	0	unless $ox > 0 and abs $ox * $range_out->[2] - $range_out->[1] + $range_out->[0] < 1e-12 and $range_out->[2] > 0
1465	0	0	if ($lapack) { }
1527	0	0	if ($w < $range_in->[0]) { }
	0	0	elsif ($w > $range_in->[1]) { }
	0	0	elsif ($w == $range_in->[1]) { }
1530	0	0	if (defined $ext)
1533	0	0	if ($ext eq 'linear') { }
1542	0	0	$j == 0 ? :
1565	0	0	if (defined $ext)
1568	0	0	if ($ext eq 'linear') { }
1577	0	0	$j == $ix ? :
1608	0	0	if ($t) { }
1611	0	0	if ($lapack) { }
1617	0	0	$low == $j ? :
	0	0	$low + 1 == $j ? :
1634	0	0	$low == $j ? :
	0	0	$low + 1 == $j ? :
1671	0	0	unless ($ix = $#{$vector_in;}) > 0
1674	0	0	unless abs $ix * $range_in->[2] - $range_in->[1] + $range_in->[0] < 1e-12 and $range_in->[2] > 0
1677	0	0	unless ($ox = round(($range_out->[1] - $range_out->[0]) / $range_out->[2])) > 0
1680	0	0	unless abs $ox * $range_out->[2] - $range_out->[1] + $range_out->[0] < 1e-12 and $range_out->[2] > 0
1689	0	0	if ($w < $range_in->[0]) { }
	0	0	elsif ($w > $range_in->[1]) { }
	0	0	elsif ($w == $range_in->[1]) { }
1692	0	0	if (defined $ext) { }
1695	0	0	if ($ext eq 'linear') { }
1729	0	0	if (defined $ext) { }
1732	0	0	if ($ext eq 'linear') { }
1774	0	0	if ($t == 0) { }
	0	0	elsif ($low == 0) { }
	0	0	elsif ($low == $ix - 1) { }
1841	0	0	unless $ix > 0 and abs $ix * $range_in->[2] - $range_in->[1] + $range_in->[0] < 1e-12 and $range_in->[2] > 0
1847	0	0	unless $ox > 0 and abs $ox * $range_out->[2] - $range_out->[1] + $range_out->[0] < 1e-12 and $range_out->[2] > 0
1850	0	0	if ($lapack) { }
1869	0	0	if ($w < $range_in->[0]) { }
	0	0	elsif ($w > $range_in->[1]) { }
	0	0	elsif ($w == $range_in->[1]) { }
1872	0	0	if (defined $ext)
1875	0	0	if ($ext eq 'linear') { }
1904	0	0	if (defined $ext)
1907	0	0	if ($ext eq 'linear') { }
1944	0	0	if ($t == 0) { }
	0	0	elsif ($low == 0) { }
	0	0	elsif ($low == $ix - 1) { }
2003	0	0	if ($lapack) { }
2011	0	0	unless $#{$_[0];} == $#{$_[1];}
2038	0	0	unless $#{$_[0];} == 2 and $#{$_[1];} == 2
2064	0	3945	if (not defined $v) { }
	3672	273	elsif (not ref $v) { }
	273	0	elsif (ref $v eq 'ARRAY' or UNIVERSAL::isa($v, 'Math::Matrix')) { }
2102	0	0	if (ref $_[0] eq 'ARRAY' or UNIVERSAL::isa($_[0], 'Math::Matrix')) { }
2108	0	0	if (ref $_) { }
2116	0	0	if $_ < 0
2117	0	0	if $_ > 1
2138	0	0	$_[0] > 0 ? :
2151	0	45	$_ & 2147483648 ? :
2164	0	45	$_ < 0 ? :
2184	0	0	unless -e $path
2202	0	0	if (@jobs and ($i = $jobs[0] + 1) <= $#dsegs)
2213	0	0	if (@jobs and ($i = $jobs[0] + 2) <= $#dsegs)
2216	0	0	if ($dsegs[$i] =~ /^(\d+)/) { }
2246	0	0	unless -d $folder
2252	0	0	if (defined $alias) { }
2255	0	0	unless -d $alias
2268	0	0	unless -d $alias
2285	0	0	if (@_) { }
2309	0	0	if not defined $_[0] or ref $_[0]
2312	0	0	if ($^O eq 'MSWin32') { }
2350	0	0	if (-f '/Library/Developer/CommandLineTools/usr/bin/SetFile')
2374	0	0	unless defined $str
2377	0	0	if (ref $str)
2398	0	0	if ($char eq '(') { }
	0	0	elsif ($char eq ')') { }
2401	0	0	if ($nest == 0)
2415	0	0	if ($nest == 1)
2433	0	0	if $nest > 0
2434	0	0	if $nest < 0
2446	0	0	if not @eval and $px[$i][1] - $px[$i][0] > 1
2462	0	0	/\((\d+)\)/ ? :
2515	0	0	if (@_ == 3 and 3 == grep({not ref $_;} @_)) { }
	0	0	elsif (@_ == 1 and ref $_[0] eq 'ARRAY' || UNIVERSAL::isa($_[0], 'Math::Matrix')) { }
2527	0	0	if UNIVERSAL::isa($_[0], 'Math::Matrix')
2550	0	0	@_ == 2 ? :
2553	0	0	if @_ == 3
2556	0	0	if (@_ == 4 and ref $_[3] eq 'ARRAY' and 3 == grep({not ref $_;} @_)) { }
	0	0	elsif (@_ == 1 and ref $_[0] eq 'ARRAY' || UNIVERSAL::isa($_[0], 'Math::Matrix')) { }
2568	0	0	if UNIVERSAL::isa($_[0], 'Math::Matrix')
2591	0	0	if (@{$in;} == 3 and 3 == grep({not ref $_;} @{$in;})) { }
	0	0	elsif (@{$in;} == grep({ref $_ eq 'ARRAY';} @{$in;})) { }
2787	0	0	unless my $d = $X + $Y + $Z
2803	0	0	if ($y == 0) { }
2840	0	0	defined $_[3] ? :
2843	0	0	defined $_[4] ? :
2870	0	0	ref $p eq 'ARRAY' ? :
	0	0	defined $p ? :
2925	0	0	unless defined $low
2926	0	0	if $low eq 'none'
2927	0	0	unless defined $up
2928	0	0	if $up eq 'none'
2931	0	0	unless not defined $low or &Scalar::Util::looks_like_number($low)
2932	0	0	unless not defined $up or &Scalar::Util::looks_like_number($up)
2933	0	0	unless not defined $low && defined $up or $up >= $low
2942	0	0	if (&Scalar::Util::looks_like_number($self->[$i][$j]))
2945	0	0	if defined $low and $self->[$i][$j] < $low
2946	0	0	if defined $up and $self->[$i][$j] > $up
2976	0	0	if ($lapack) { }
2984	0	0	if (not ref $x) { }
	0	0	elsif (ref $x eq 'ARRAY') { }
2987	0	0	unless &Scalar::Util::looks_like_number($x)
3006	0	0	unless @{$x;} == grep({&Scalar::Util::looks_like_number($_);} @{$x;})
3009	0	0	unless $#{$x;} == $#{$$self[0];}
3051	0	0	unless @{$self;} == 3 and @{$self->[0];} == 3
3054	0	0	unless defined $wtpt
3066	0	0	if $i != $j
3090	0	0	unless @{$self;} == 3 and @{$self->[0];} == 3
3093	0	0	unless defined $wtpt
3105	0	0	if $i != $j