| line |
true |
false |
branch |
|
38
|
0 |
1 |
if (@_) |
|
41
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
72
|
0 |
0 |
if (@_) |
|
75
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
103
|
0 |
0 |
if (@_) |
|
106
|
0 |
0 |
unless ref $_[0] eq 'ARRAY' |
|
127
|
0 |
0 |
if (@_) |
|
130
|
0 |
0 |
if (@_ == 1 and UNIVERSAL::isa($_[0], 'ICC::Profile::matf')) { } |
|
133
|
0 |
0 |
unless @{$_[0]->offset;} |
|
164
|
0 |
0 |
if (@_) |
|
167
|
0 |
0 |
if (@_ == 1 and UNIVERSAL::isa($_[0], 'ICC::Profile::cvst')) { } |
|
198
|
0 |
0 |
if (@_) |
|
201
|
0 |
0 |
if (@_ == 1 and UNIVERSAL::isa($_[0], 'ICC::Profile::clut')) { } |
|
232
|
0 |
0 |
if (@_) |
|
235
|
0 |
0 |
if (@_ == 1 and UNIVERSAL::isa($_[0], 'ICC::Profile::cvst')) { } |
|
267
|
0 |
0 |
if (@_) |
|
270
|
0 |
0 |
if (@_ == 1) { } |
|
299
|
0 |
0 |
if (@_) |
|
302
|
0 |
0 |
if (@_ == 1) { } |
|
338
|
0 |
1 |
unless @_ == 3 |
|
356
|
0 |
1 |
unless @_ == 4 |
|
424
|
0 |
0 |
ref $_[-1] eq 'HASH' ? : |
|
427
|
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($_);} @_)) { } |
|
436
|
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];})) { } |
|
442
|
0 |
0 |
if ref $_ eq 'ARRAY' |
|
490
|
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;}) |
|
499
|
0 |
0 |
defined $init->[$i] ? : |
|
566
|
0 |
0 |
if $error < $elim |
|
594
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
600
|
0 |
0 |
defined $jac ? : |
|
607
|
0 |
0 |
unless defined $jac |
|
610
|
0 |
0 |
if (wantarray) { } |
|
634
|
0 |
0 |
if (defined $pcs) { } |
|
637
|
0 |
0 |
if (grep {$pcs == $_;} 1, 2, 7) { } |
|
655
|
0 |
0 |
if (defined $self->[0]{'pcs_encoding'}) { } |
|
663
|
0 |
0 |
if ($self->[0]{'input_cs'} eq 'Lab ' and $self->[0]{'output_cs'} ne 'XYZ ' or $self->[0]{'input_cs'} ne 'XYZ ' and $self->[0]{'output_cs'} eq 'Lab ') { } |
|
|
0 |
0 |
elsif ($self->[0]{'input_cs'} eq 'XYZ ' and $self->[0]{'output_cs'} ne 'Lab ' or $self->[0]{'input_cs'} ne 'Lab ' and $self->[0]{'output_cs'} eq 'XYZ ') { } |
|
696
|
0 |
0 |
if (defined $wtpt) { } |
|
699
|
0 |
0 |
if (@{$wtpt;} == 3 and 3 == grep({not ref $_;} @{$wtpt;})) { } |
|
717
|
0 |
0 |
if (defined $self->[0]{'wtpt'}) { } |
|
746
|
0 |
0 |
ref $p eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $p ? : |
|
749
|
0 |
0 |
defined $p->[0] && !ref($p->[0]) ? : |
|
755
|
0 |
0 |
if ($fmt =~ /s/) |
|
767
|
0 |
0 |
if (not defined $element) { } |
|
|
0 |
0 |
elsif (not &Scalar::Util::blessed($element)) { } |
|
|
0 |
0 |
elsif ($element->can('sdump')) { } |
|
782
|
0 |
0 |
defined $$p[$i + 1] ? : |
|
819
|
0 |
0 |
if ref $_[-1] eq 'HASH' |
|
841
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
847
|
0 |
0 |
if $self->[3] & 1 << $i |
|
870
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
876
|
0 |
0 |
if $self->[3] & 1 << $i |
|
912
|
0 |
0 |
if (@{$in;} == grep({not ref $_;} @{$in;})) { } |
|
923
|
0 |
0 |
if (ref $in->[$i] eq 'ARRAY') { } |
|
956
|
0 |
1 |
unless $#{$$self[1];} == 3 |
|
962
|
4 |
0 |
if (defined $self->[1][$i]) { } |
|
|
0 |
0 |
elsif ($i) { } |
|
965
|
0 |
4 |
unless ref $self->[1][$i] eq $class[$i] |
|
968
|
3 |
1 |
if ($i) { } |
|
971
|
1 |
2 |
unless (defined $ci) |
|
979
|
2 |
1 |
if (defined $co) |
|
982
|
0 |
2 |
unless $self->[1][$i]->cin == $co |
|
992
|
0 |
1 |
unless $self->[1][0]->cin == 3 and $self->[1][0]->cout == 3 |
|
995
|
0 |
1 |
if defined $self->[1][0]->offset and grep {$_;} @{$self->[1][0]->offset;} |
|
1013
|
0 |
1 |
unless @{$gsa;} == grep({$_ == $gsa->[0];} @{$gsa;}) |
|
1016
|
0 |
1 |
unless @{$self->[1][1]->array;} == map({UNIVERSAL::isa($_, 'ICC::Profile::curv');} @{$self->[1][1]->array;}) |
|
1022
|
0 |
1 |
unless $n >= 2 and $n <= 4096 |
|
1025
|
0 |
1 |
unless @{$self->[1][1]->array;} == grep({@{$_->array;} == $n;} @{$self->[1][1]->array;}) |
|
1028
|
0 |
1 |
unless @{$self->[1][3]->array;} == map({UNIVERSAL::isa($_, 'ICC::Profile::curv');} @{$self->[1][3]->array;}) |
|
1034
|
0 |
1 |
unless $n >= 2 and $n <= 4096 |
|
1037
|
0 |
1 |
unless @{$self->[1][3]->array;} == grep({@{$_->array;} == $n;} @{$self->[1][3]->array;}) |
|
1061
|
0 |
0 |
if (defined $hash->{$attr}) |
|
1064
|
0 |
0 |
if (ref $hash->{$attr} eq $list{$attr}[0]) { } |
|
1099
|
1 |
0 |
if ($tag->[0] =~ /^A2B[0-2]$/) { } |
|
|
0 |
0 |
elsif ($tag->[0] =~ /^B2A[0-2]$/) { } |
|
|
0 |
0 |
elsif ($tag->[0] =~ /^pre[0-2]$/) { } |
|
|
0 |
0 |
elsif ($tag->[0] eq 'gamt') { } |
|
1146
|
0 |
1 |
unless $mft[0] eq 'mft2' |
|
1149
|
0 |
1 |
unless $mft[1] > 0 and $mft[1] < 16 |
|
1152
|
0 |
1 |
unless $mft[2] > 0 and $mft[2] < 16 |
|
1228
|
0 |
1 |
$self->[0]{'input_cs'} eq 'XYZ ' ? : |
|
1250
|
1 |
0 |
if (defined $self->[1][0]) { } |
|
1282
|
0 |
16384 |
$_ > 1 ? : |
|
|
0 |
16384 |
$_ < 0 ? : |
|
1293
|
0 |
12288 |
$_ > 1 ? : |
|
|
0 |
12288 |
$_ < 0 ? : |