Branch Coverage

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


line true false branch
45 0 5 if (@_)
48 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
79 0 0 if (@_)
82 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
110 0 0 if (@_)
113 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')) { }
119 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
129 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
155 0 38 if (@_)
158 0 0 if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({not ref $_;} @{$_[0];})) { }
186 0 0 if (@_)
189 0 0 if (@_ == 1 and ref $_[0] eq 'ARRAY' and @{$_[0];} == grep({ref $_ eq 'CODE';} @{$_[0];})) { }
221 0 0 if ref $_[-1] eq 'ARRAY'
227 0 0 unless @_ == @{$gsa;}
228 0 0 if not ref $_
0 0 unless @_ == grep({$_ == int $_ if not ref $_;} @_)
229 0 0 if $_[$_] >= 0
0 0 unless @_ == grep({$_[$_] < $gsa->[$_] if $_[$_] >= 0;} 0 .. $#_)
246 0 0 if (defined $ref)
252 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
279 0 0 unless @_ == 3
297 0 0 unless @_ == 4
358 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') { }
361 0 0 if (not ref $hash->{$attr} and $hash->{$attr} == 1 || $hash->{$attr} == 2) { }
377 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({not ref $_;} @{$$hash{$attr};})) { }
393 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({ref $_ eq 'CODE';} @{$$hash{$attr};})) { }
409 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({not ref $_;} @{$$hash{$attr};})) { }
0 0 elsif ($hash->{$attr} eq 'log') { }
418 0 0 if (defined $self->[0]{'log'} and ref $self->[0]{'log'} eq 'HASH')
448 0 0 unless ref $self->[3][0] eq 'CODE'
457 0 0 if not ref $_
0 0 unless @{$gsa;} == grep({$_ == int $_ if not ref $_;} @{$gsa;})
458 0 0 unless 0 == grep({$_ < 2;} @{$gsa;})
459 0 0 unless $ci > 0 and $ci < 16
460 0 0 unless $co > 0 and $co < 16
474 0 0 unless @slice
485 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
506 0 0 ref $_[-1] eq 'HASH' ? :
509 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($_);} @_)) { }
518 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];})) { }
524 0 0 if ref $_ eq 'ARRAY'
572 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;})
581 0 0 defined $init->[$i] ? :
648 0 0 if $error < $elim
678 0 0 if (defined $self->[3][0] and defined $self->[3][1]) { }
0 0 elsif (defined $self->[3][0] ^ defined $self->[3][1]) { }
681 0 0 if (wantarray) { }
702 0 0 unless $_ < 0
0 0 if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$in;})
710 0 0 if ($lapack) { }
713 0 0 if (defined $ext) { }
731 0 0 if (defined $ext) { }
774 0 0 if (wantarray) { }
780 0 0 if (defined $ext)
817 0 0 ref $p eq 'ARRAY' ? :
0 0 defined $p ? :
820 0 0 defined $p->[0] && !ref($p->[0]) ? :
842 0 0 if ref $_[-1] eq 'HASH'
867 0 0 if (defined $self->[3][0])
875 0 0 unless $_ < 0
0 0 if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$in;})
883 0 0 if ($lapack) { }
889 0 0 if (defined $ext)
922 0 0 if (defined $ext)
965 0 0 if (defined $self->[3][0]) { }
0 0 elsif ($lapack) { }
982 0 0 unless $_ < 0
0 0 if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$$in[$i];}) { }
998 0 0 if (defined $ext)
1021 0 0 unless $_ < 0
0 0 if ($hash->{'ubox'} and grep {$_ > 1 unless $_ < 0;} @{$$in[$i];}) { }
1048 0 0 if (defined $ext)
1074 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
1103 0 0 if (@{$in;} == grep({not ref $_;} @{$in;})) { }
1114 0 0 if (ref $in->[$i] eq 'ARRAY') { }
1153 0 0 if ($ox[$i] < 0) { }
0 0 elsif ($ox[$i] > $ux) { }
1174 0 0 unless ($cp = $self->[5]{$key})
1186 0 0 if $i >> $j & 1
1225 0 0 unless ($cp = $self->[5]{'ext'})
1234 0 0 $i >> $j & 1 ? :
1285 0 0 if ($i >> $j & 1) { }
1336 0 0 if ($i >> $k & 1) { }
1339 0 0 if $j != $k
1344 0 0 $j != $k ? :
1381 0 0 if (abs $_ > $dmax)
1499 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') { }
1502 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')) { }
1508 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
1518 0 0 if defined $INC{'ICC/Support/Lapack.pm'}
1532 0 0 if (not ref $hash->{$attr} and $hash->{$attr} == 1 || $hash->{$attr} == 2) { }
1548 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({&Scalar::Util::looks_like_number($_);} @{$$hash{$attr};})) { }
1564 0 0 if (ref $hash->{$attr} eq 'ARRAY' and @{$hash->{$attr};} == grep({ref $_ eq 'CODE';} @{$$hash{$attr};})) { }
1615 1 3 if ($bytes == 1) { }
3 0 elsif ($bytes == 2) { }
0 0 elsif ($bytes == 4) { }
1664 0 4 if defined $INC{'ICC/Support/Lapack.pm'}
1735 1 3 if ($bytes == 1) { }
3 0 elsif ($bytes == 2) { }
0 0 elsif ($bytes == 4) { }
1741 0 35937 $_ > 1 ? :
0 35937 $_ < 0 ? :
1752 0 280041 $_ > 1 ? :
0 280041 $_ < 0 ? :
1796 0 0 unless $ci > 0 and $ci < 16
1799 0 0 unless $co > 0 and $co < 16