Branch Coverage

blib/lib/ICC/Profile/clut.pm
Criterion Covered Total %
branch 13 238 5.4


line true false branch
42 0 5 if (@_)
45 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
76 0 0 if (@_)
79 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
107 0 0 if (@_)
110 0 0 if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({ref $_ eq 'ARRAY';} @{$_[0];})) { }
0 0 elsif (@_ == 1 and UNIVERSAL::isa($_[0], 'Math::Matrix')) { }
116 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
126 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
152 0 38 if (@_)
155 0 0 if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({not ref $_;} @{$_[0];})) { }
183 0 0 if (@_)
186 0 0 if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({ref $_ eq 'CODE';} @{$_[0];})) { }
218 0 0 if ref $_[-1] eq 'ARRAY'
224 0 0 unless @_ == @{$gsa;}
225 0 0 if not ref $_
0 0 unless @_ == grep({$_ == int $_ if not ref $_;} @_)
226 0 0 if $_[$_] >= 0
0 0 unless @_ == grep({$_[$_] < $gsa->[$_] if $_[$_] >= 0;} 0 .. $#_)
243 0 0 if (defined $ref)
249 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
276 0 0 unless @_ == 3
294 0 0 unless @_ == 4
355 0 0 if ($attr eq 'clut_bytes') { }
0 0 elsif ($attr eq 'gsa') { }
0 0 elsif ($attr eq 'udf') { }
0 0 elsif ($attr eq 'slice') { }
358 0 0 if (not ref $hash->{$attr} and $hash->{$attr} == 1 || $hash->{$attr} == 2) { }
374 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({not ref $_;} @{$$hash{$attr};})) { }
390 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({ref $_ eq 'CODE';} @{$$hash{$attr};})) { }
406 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({not ref $_;} @{$$hash{$attr};})) { }
0 0 elsif ($hash->{$attr} eq 'log') { }
415 0 0 if (defined $self->[0]{'log'} and ref $self->[0]{'log'} eq 'HASH')
445 0 0 unless ref $self->[3][0] eq 'CODE'
454 0 0 if not ref $_
0 0 unless @{$gsa;} == grep({$_ == int $_ if not ref $_;} @{$gsa;})
455 0 0 unless 0 == grep({$_ < 2;} @{$gsa;})
456 0 0 unless $ci > 0 and $ci < 16
457 0 0 unless $co > 0 and $co < 16
471 0 0 unless @slice
482 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
503 0 0 ref $_[-1] eq 'HASH' ? :
506 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($_);} @_)) { }
515 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];})) { }
521 0 0 if ref $_ eq 'ARRAY'
569 0 0 if defined $_
0 0 if not defined $_
0 0 unless grep({++$i; push @si, $i if defined $_;} @{$in;}) == grep({++$j; push @so, $j if not defined $_;} @{$out;})
578 0 0 defined $init->[$i] ? :
645 0 0 if $error < $elim
675 0 0 if (defined $self->[3][0] and defined $self->[3][1]) { }
0 0 elsif (defined $self->[3][0] ^ defined $self->[3][1]) { }
678 0 0 if (wantarray) { }
699 0 0 unless $_ < 0
0 0 if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$in;})
707 0 0 if ($lapack) { }
710 0 0 if (defined $ext) { }
728 0 0 if (defined $ext) { }
771 0 0 if (wantarray) { }
777 0 0 if (defined $ext)
814 0 0 ref $p eq 'ARRAY' ? :
0 0 defined $p ? :
817 0 0 defined $p->[0] && !ref($p->[0]) ? :
839 0 0 if ref $_[-1] eq 'HASH'
864 0 0 if (defined $self->[3][0])
872 0 0 unless $_ < 0
0 0 if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$in;})
880 0 0 if ($lapack) { }
886 0 0 if (defined $ext)
919 0 0 if (defined $ext)
962 0 0 if (defined $self->[3][0]) { }
0 0 elsif ($lapack) { }
979 0 0 unless $_ < 0
0 0 if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$$in[$i];}) { }
995 0 0 if (defined $ext)
1018 0 0 unless $_ < 0
0 0 if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$$in[$i];}) { }
1045 0 0 if (defined $ext)
1071 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
1100 0 0 if (@{$in;} == grep({not ref $_;} @{$in;})) { }
1111 0 0 if (ref $in->[$i] eq 'ARRAY') { }
1150 0 0 if ($ox[$i] < 0) { }
0 0 elsif ($ox[$i] > $ux) { }
1171 0 0 unless ($cp = $self->[5]{$key})
1183 0 0 if $i >> $j & 1
1222 0 0 unless ($cp = $self->[5]{'ext'})
1231 0 0 $i >> $j & 1 ? :
1282 0 0 if ($i >> $j & 1) { }
1333 0 0 if ($i >> $k & 1) { }
1336 0 0 if $j != $k
1341 0 0 $j != $k ? :
1378 0 0 if (abs $_ > $dmax)
1496 0 0 if ($attr eq 'array') { }
0 0 elsif ($attr eq 'clut_bytes') { }
0 0 elsif ($attr eq 'gsa') { }
0 0 elsif ($attr eq 'udf') { }
1499 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({ref $_ eq 'ARRAY';} @{$$hash{$attr};})) { }
0 0 elsif (UNIVERSAL::isa($hash->{$attr}, 'Math::Matrix')) { }
1505 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
1515 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
1529 0 0 if (not ref $hash->{$attr} and $hash->{$attr} == 1 || $hash->{$attr} == 2) { }
1545 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({&Scalar::Util::looks_like_number($_);} @{$$hash{$attr};})) { }
1561 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({ref $_ eq 'CODE';} @{$$hash{$attr};})) { }
1612 1 3 if ($bytes == 1) { }
3 0 elsif ($bytes == 2) { }
0 0 elsif ($bytes == 4) { }
1661 0 4 if defined $INC{'ICC/Support/Lapack.pm'}
1732 1 3 if ($bytes == 1) { }
3 0 elsif ($bytes == 2) { }
0 0 elsif ($bytes == 4) { }
1738 0 35937 $_ > 1 ? :
0 35937 $_ < 0 ? :
1749 0 280041 $_ > 1 ? :
0 280041 $_ < 0 ? :
1793 0 0 unless $ci > 0 and $ci < 16
1796 0 0 unless $co > 0 and $co < 16