| 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 (grep {$pcs == $_;} 1, 2, 7) { } |
|
658
|
0 |
0 |
if (defined $self->[0]{'pcs_encoding'}) { } |
|
666
|
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 ') { } |
|
699
|
0 |
0 |
if (defined $wtpt) { } |
|
702
|
0 |
0 |
if (@{$wtpt;} == 3 and 3 == grep({not ref $_;} @{$wtpt;})) { } |
|
720
|
0 |
0 |
if (defined $self->[0]{'wtpt'}) { } |
|
749
|
0 |
0 |
ref $p eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $p ? : |
|
752
|
0 |
0 |
defined $p->[0] && !ref($p->[0]) ? : |
|
758
|
0 |
0 |
if ($fmt =~ /s/) |
|
770
|
0 |
0 |
if (not defined $element) { } |
|
|
0 |
0 |
elsif (not &Scalar::Util::blessed($element)) { } |
|
|
0 |
0 |
elsif ($element->can('sdump')) { } |
|
785
|
0 |
0 |
defined $$p[$i + 1] ? : |
|
822
|
0 |
0 |
if ref $_[-1] eq 'HASH' |
|
844
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
850
|
0 |
0 |
if $self->[3] & 1 << $i |
|
873
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
879
|
0 |
0 |
if $self->[3] & 1 << $i |
|
915
|
0 |
0 |
if (@{$in;} == grep({not ref $_;} @{$in;})) { } |
|
926
|
0 |
0 |
if (ref $in->[$i] eq 'ARRAY') { } |
|
959
|
0 |
1 |
unless $#{$$self[1];} == 3 |
|
965
|
4 |
0 |
if (defined $self->[1][$i]) { } |
|
|
0 |
0 |
elsif ($i) { } |
|
968
|
0 |
4 |
unless ref $self->[1][$i] eq $class[$i] |
|
971
|
3 |
1 |
if ($i) { } |
|
974
|
1 |
2 |
unless (defined $ci) |
|
982
|
2 |
1 |
if (defined $co) |
|
985
|
0 |
2 |
unless $self->[1][$i]->cin == $co |
|
995
|
0 |
1 |
unless $self->[1][0]->cin == 3 and $self->[1][0]->cout == 3 |
|
998
|
0 |
1 |
if defined $self->[1][0]->offset and grep {$_;} @{$self->[1][0]->offset;} |
|
1016
|
0 |
1 |
unless @{$gsa;} == grep({$_ == $gsa->[0];} @{$gsa;}) |
|
1019
|
0 |
1 |
unless @{$self->[1][1]->array;} == map({UNIVERSAL::isa($_, 'ICC::Profile::curv');} @{$self->[1][1]->array;}) |
|
1025
|
0 |
1 |
unless $n >= 2 and $n <= 4096 |
|
1028
|
0 |
1 |
unless @{$self->[1][1]->array;} == grep({@{$_->array;} == $n;} @{$self->[1][1]->array;}) |
|
1031
|
0 |
1 |
unless @{$self->[1][3]->array;} == map({UNIVERSAL::isa($_, 'ICC::Profile::curv');} @{$self->[1][3]->array;}) |
|
1037
|
0 |
1 |
unless $n >= 2 and $n <= 4096 |
|
1040
|
0 |
1 |
unless @{$self->[1][3]->array;} == grep({@{$_->array;} == $n;} @{$self->[1][3]->array;}) |
|
1064
|
0 |
0 |
if (defined $hash->{$attr}) |
|
1067
|
0 |
0 |
if (ref $hash->{$attr} eq $list{$attr}[0]) { } |
|
1102
|
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') { } |
|
1149
|
0 |
1 |
unless $mft[0] eq 'mft2' |
|
1152
|
0 |
1 |
unless $mft[1] > 0 and $mft[1] < 16 |
|
1155
|
0 |
1 |
unless $mft[2] > 0 and $mft[2] < 16 |
|
1231
|
0 |
1 |
$self->[0]{'input_cs'} eq 'XYZ ' ? : |
|
1253
|
1 |
0 |
if (defined $self->[1][0]) { } |
|
1285
|
0 |
16384 |
$_ > 1 ? : |
|
|
0 |
16384 |
$_ < 0 ? : |
|
1296
|
0 |
12288 |
$_ > 1 ? : |
|
|
0 |
12288 |
$_ < 0 ? : |