| line |
true |
false |
branch |
|
41
|
0 |
1 |
if (@_) |
|
44
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
75
|
0 |
0 |
if (@_) |
|
78
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
106
|
0 |
0 |
if (@_) |
|
109
|
0 |
0 |
unless ref $_[0] eq 'ARRAY' |
|
130
|
0 |
0 |
if (@_) |
|
133
|
0 |
0 |
if (@_ == 1 and UNIVERSAL::isa($_[0], 'ICC::Profile::matf')) { } |
|
136
|
0 |
0 |
unless @{$_[0]->offset;} |
|
167
|
0 |
0 |
if (@_) |
|
170
|
0 |
0 |
if (@_ == 1 and UNIVERSAL::isa($_[0], 'ICC::Profile::cvst')) { } |
|
201
|
0 |
0 |
if (@_) |
|
204
|
0 |
0 |
if (@_ == 1 and UNIVERSAL::isa($_[0], 'ICC::Profile::clut')) { } |
|
235
|
0 |
0 |
if (@_) |
|
238
|
0 |
0 |
if (@_ == 1 and UNIVERSAL::isa($_[0], 'ICC::Profile::cvst')) { } |
|
270
|
0 |
0 |
if (@_) |
|
273
|
0 |
0 |
if (@_ == 1) { } |
|
302
|
0 |
0 |
if (@_) |
|
305
|
0 |
0 |
if (@_ == 1) { } |
|
341
|
0 |
1 |
unless @_ == 3 |
|
359
|
0 |
1 |
unless @_ == 4 |
|
427
|
0 |
0 |
ref $_[-1] eq 'HASH' ? : |
|
430
|
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($_);} @_)) { } |
|
439
|
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];})) { } |
|
445
|
0 |
0 |
if ref $_ eq 'ARRAY' |
|
493
|
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;}) |
|
502
|
0 |
0 |
defined $init->[$i] ? : |
|
569
|
0 |
0 |
if $error < $elim |
|
597
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
603
|
0 |
0 |
defined $jac ? : |
|
610
|
0 |
0 |
unless defined $jac |
|
613
|
0 |
0 |
if (wantarray) { } |
|
637
|
0 |
0 |
if (defined $pcs) { } |
|
640
|
0 |
0 |
if ($pcs == 0) { } |
|
658
|
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 ') { } |
|
689
|
0 |
0 |
if (defined $wtpt) { } |
|
692
|
0 |
0 |
if (@{$wtpt;} == 3 and 3 == grep({not ref $_;} @{$wtpt;})) { } |
|
710
|
0 |
0 |
if (defined $self->[0]{'wtpt'}) { } |
|
739
|
0 |
0 |
ref $p eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $p ? : |
|
742
|
0 |
0 |
defined $p->[0] && !ref($p->[0]) ? : |
|
748
|
0 |
0 |
if ($fmt =~ /s/) |
|
760
|
0 |
0 |
if (not defined $element) { } |
|
|
0 |
0 |
elsif (not &Scalar::Util::blessed($element)) { } |
|
|
0 |
0 |
elsif ($element->can('sdump')) { } |
|
775
|
0 |
0 |
defined $$p[$i + 1] ? : |
|
812
|
0 |
0 |
if ref $_[-1] eq 'HASH' |
|
834
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
840
|
0 |
0 |
if $self->[3] & 1 << $i |
|
863
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
869
|
0 |
0 |
if $self->[3] & 1 << $i |
|
905
|
0 |
0 |
if (@{$in;} == grep({not ref $_;} @{$in;})) { } |
|
916
|
0 |
0 |
if (ref $in->[$i] eq 'ARRAY') { } |
|
949
|
0 |
1 |
unless $#{$$self[1];} == 3 |
|
955
|
4 |
0 |
if (defined $self->[1][$i]) { } |
|
|
0 |
0 |
elsif ($i) { } |
|
958
|
0 |
4 |
unless ref $self->[1][$i] eq $class[$i] |
|
961
|
3 |
1 |
if ($i) { } |
|
964
|
1 |
2 |
unless (defined $ci) |
|
972
|
2 |
1 |
if (defined $co) |
|
975
|
0 |
2 |
unless $self->[1][$i]->cin == $co |
|
985
|
0 |
1 |
unless $self->[1][0]->cin == 3 and $self->[1][0]->cout == 3 |
|
988
|
0 |
1 |
if defined $self->[1][0]->offset and grep {$_;} @{$self->[1][0]->offset;} |
|
1006
|
0 |
1 |
unless @{$gsa;} == grep({$_ == $gsa->[0];} @{$gsa;}) |
|
1009
|
0 |
1 |
unless @{$self->[1][1]->array;} == map({UNIVERSAL::isa($_, 'ICC::Profile::curv');} @{$self->[1][1]->array;}) |
|
1012
|
0 |
1 |
unless @{$self->[1][1]->array;} == grep({@{$_->array;} == 256;} @{$self->[1][1]->array;}) |
|
1015
|
0 |
1 |
unless @{$self->[1][3]->array;} == map({UNIVERSAL::isa($_, 'ICC::Profile::curv');} @{$self->[1][3]->array;}) |
|
1018
|
0 |
1 |
unless @{$self->[1][3]->array;} == grep({@{$_->array;} == 256;} @{$self->[1][3]->array;}) |
|
1042
|
0 |
0 |
if (defined $hash->{$attr}) |
|
1045
|
0 |
0 |
if (ref $hash->{$attr} eq $list{$attr}[0]) { } |
|
1080
|
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') { } |
|
1127
|
0 |
1 |
unless $mft[0] eq 'mft1' |
|
1130
|
0 |
1 |
unless $mft[1] > 0 and $mft[1] < 16 |
|
1133
|
0 |
1 |
unless $mft[2] > 0 and $mft[2] < 16 |
|
1203
|
0 |
1 |
$self->[0]{'input_cs'} eq 'XYZ ' ? : |
|
1225
|
1 |
0 |
if (defined $self->[1][0]) { } |
|
1250
|
0 |
768 |
$_ > 1 ? : |
|
|
0 |
768 |
$_ < 0 ? : |
|
1261
|
0 |
256 |
$_ > 1 ? : |
|
|
0 |
256 |
$_ < 0 ? : |