Branch Coverage

lib/ICC/Support/ratfunc.pm
Criterion Covered Total %
branch 1 120 0.8


line true false branch
119 0 1 if (@_)
122 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
0 0 elsif (@_ == 1 and UNIVERSAL::isa(ref $_[0], 'ICC::Profile::matf')) { }
0 0 elsif (@_ == 2 or @_ == 3) { }
137 0 0 if $info = fit($self, @_)
165 0 0 if (@_)
168 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
196 0 0 if (@_)
199 0 0 if (@_ == 1 and ref $_[0] eq 'ARRAY' && @{$_[0];} == grep({ref $_ eq 'ARRAY';} @{$_[0];}) || UNIVERSAL::isa($_[0], 'Math::Matrix')) { }
202 0 0 unless $#{$_[0];} < 6
218 0 0 unless $#{$_[0][$i];} < 4
224 0 0 unless &Scalar::Util::looks_like_number($_[0][$i][$j])
265 0 0 unless $lapack
268 0 0 unless defined $oflag
271 0 0 unless ref $in eq 'ARRAY' and ref $in->[0] eq 'ARRAY' and not ref $in->[0][0] or UNIVERSAL::isa($in, 'Math::Matrix')
274 0 0 unless ref $out eq 'ARRAY' and ref $out->[0] eq 'ARRAY' and not ref $out->[0][0] or UNIVERSAL::isa($out, 'Math::Matrix')
277 0 0 unless $#{$in;} == $#{$out;}
278 0 0 unless $#{$$in[0];} == 2
279 0 0 unless $#{$$out[0];} == 2
285 0 0 if $info < 0
286 0 0 if $info > 0
303 0 0 $oflag ? :
326 0 0 ref $_[-1] eq 'HASH' ? :
329 0 0 if (@_ == $h + 2 and UNIVERSAL::isa($_[1], 'Math::Matrix')) { }
0 0 elsif (@_ == $h + 2 and ref $_[1] eq 'ARRAY') { }
0 0 elsif (@_ == $h + 1 + grep({&Scalar::Util::looks_like_number($_);} @_)) { }
338 0 0 if (not ref $_[1][0] and @{$_[1];} == grep({&Scalar::Util::looks_like_number($_);} @{$_[1];})) { }
0 0 elsif (ref $_[1][0] eq 'ARRAY' and @{$_[1];} == grep({&Scalar::Util::looks_like_number($_->[0]) if ref $_ eq 'ARRAY';} @{$_[1];})) { }
344 0 0 if ref $_ eq 'ARRAY'
547 0 0 ref $p eq 'ARRAY' ? :
0 0 defined $p ? :
550 0 0 defined $p->[0] && !ref($p->[0]) ? :
559 0 0 if ($rows < 0) { }
596 0 0 if (@{$in;} == grep({&Scalar::Util::looks_like_number($_);} @{$in;})) { }
607 0 0 if (ref $in->[$i] eq 'ARRAY') { }
637 0 0 if ref $_[-1] eq 'HASH'
640 0 0 unless @_ == 3
652 0 0 $den == 0 ? :
673 0 0 unless @{$in;} == 3
676 0 0 if ($lapack) { }
705 0 0 unless @{$in->[0];} == 3
708 0 0 if ($lapack) { }
728 0 0 $den == 0 ? :
737 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
781 0 0 unless $#{$value;} < 6
787 0 0 unless $#{$$value[$i];} < 3
793 0 0 unless &Scalar::Util::looks_like_number($value->[$i][$j])
806 0 0 unless $#{$value;} < 3
812 0 0 unless &Scalar::Util::looks_like_number($value->[$i])
844 0 0 if (defined $hash->{'header'})
847 0 0 if (ref $hash->{'header'} eq 'HASH') { }
862 0 0 if (defined $hash->{'matrix'})
868 0 0 if (ref $value eq 'ARRAY' and @{$value;} == grep({ref $_ eq 'ARRAY';} @{$value;}) or UNIVERSAL::isa($value, 'Math::Matrix')) { }
871 0 0 unless $#{$value;} < 6
877 0 0 unless $#{$$value[$i];} < 4
883 0 0 unless &Scalar::Util::looks_like_number($value->[$i][$j])
902 0 0 if (defined $hash->{'offset'})
908 0 0 if (ref $value eq 'ARRAY' and @{$value;} == grep({not ref $_;} @{$value;})) { }
911 0 0 unless $#{$value;} < 3
917 0 0 unless &Scalar::Util::looks_like_number($value->[$i])