| 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 ($pcs == 0) { } |
|
655
|
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 ') { } |
|
686
|
0 |
0 |
if (defined $wtpt) { } |
|
689
|
0 |
0 |
if (@{$wtpt;} == 3 and 3 == grep({not ref $_;} @{$wtpt;})) { } |
|
707
|
0 |
0 |
if (defined $self->[0]{'wtpt'}) { } |
|
736
|
0 |
0 |
ref $p eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $p ? : |
|
739
|
0 |
0 |
defined $p->[0] && !ref($p->[0]) ? : |
|
745
|
0 |
0 |
if ($fmt =~ /s/) |
|
757
|
0 |
0 |
if (not defined $element) { } |
|
|
0 |
0 |
elsif (not &Scalar::Util::blessed($element)) { } |
|
|
0 |
0 |
elsif ($element->can('sdump')) { } |
|
772
|
0 |
0 |
defined $$p[$i + 1] ? : |
|
809
|
0 |
0 |
if ref $_[-1] eq 'HASH' |
|
831
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
837
|
0 |
0 |
if $self->[3] & 1 << $i |
|
860
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
866
|
0 |
0 |
if $self->[3] & 1 << $i |
|
902
|
0 |
0 |
if (@{$in;} == grep({not ref $_;} @{$in;})) { } |
|
913
|
0 |
0 |
if (ref $in->[$i] eq 'ARRAY') { } |
|
946
|
0 |
1 |
unless $#{$$self[1];} == 3 |
|
952
|
4 |
0 |
if (defined $self->[1][$i]) { } |
|
|
0 |
0 |
elsif ($i) { } |
|
955
|
0 |
4 |
unless ref $self->[1][$i] eq $class[$i] |
|
958
|
3 |
1 |
if ($i) { } |
|
961
|
1 |
2 |
unless (defined $ci) |
|
969
|
2 |
1 |
if (defined $co) |
|
972
|
0 |
2 |
unless $self->[1][$i]->cin == $co |
|
982
|
0 |
1 |
unless $self->[1][0]->cin == 3 and $self->[1][0]->cout == 3 |
|
985
|
0 |
1 |
if defined $self->[1][0]->offset and grep {$_;} @{$self->[1][0]->offset;} |
|
1003
|
0 |
1 |
unless @{$gsa;} == grep({$_ == $gsa->[0];} @{$gsa;}) |
|
1006
|
0 |
1 |
unless @{$self->[1][1]->array;} == map({UNIVERSAL::isa($_, 'ICC::Profile::curv');} @{$self->[1][1]->array;}) |
|
1009
|
0 |
1 |
unless @{$self->[1][1]->array;} == grep({@{$_->array;} == 256;} @{$self->[1][1]->array;}) |
|
1012
|
0 |
1 |
unless @{$self->[1][3]->array;} == map({UNIVERSAL::isa($_, 'ICC::Profile::curv');} @{$self->[1][3]->array;}) |
|
1015
|
0 |
1 |
unless @{$self->[1][3]->array;} == grep({@{$_->array;} == 256;} @{$self->[1][3]->array;}) |
|
1039
|
0 |
0 |
if (defined $hash->{$attr}) |
|
1042
|
0 |
0 |
if (ref $hash->{$attr} eq $list{$attr}[0]) { } |
|
1077
|
0 |
1 |
if ($tag->[0] =~ /^A2B[0-2]$/) { } |
|
|
0 |
1 |
elsif ($tag->[0] =~ /^B2A[0-2]$/) { } |
|
|
0 |
1 |
elsif ($tag->[0] =~ /^pre[0-2]$/) { } |
|
|
1 |
0 |
elsif ($tag->[0] eq 'gamt') { } |
|
1124
|
0 |
1 |
unless $mft[0] eq 'mft1' |
|
1127
|
0 |
1 |
unless $mft[1] > 0 and $mft[1] < 16 |
|
1130
|
0 |
1 |
unless $mft[2] > 0 and $mft[2] < 16 |
|
1200
|
0 |
1 |
$self->[0]{'input_cs'} eq 'XYZ ' ? : |
|
1222
|
1 |
0 |
if (defined $self->[1][0]) { } |
|
1247
|
0 |
768 |
$_ > 1 ? : |
|
|
0 |
768 |
$_ < 0 ? : |
|
1258
|
0 |
256 |
$_ > 1 ? : |
|
|
0 |
256 |
$_ < 0 ? : |