| line |
true |
false |
branch |
|
36
|
0 |
1 |
if (@_) |
|
39
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'ARRAY') { } |
|
70
|
0 |
0 |
if (@_) |
|
73
|
0 |
0 |
if (@_ == 1 and ref $_[0] eq 'HASH') { } |
|
101
|
0 |
0 |
if (@_) |
|
104
|
0 |
0 |
unless ref $_[0] eq 'ARRAY' |
|
110
|
0 |
0 |
unless $_[0][$i]->can('_transform') and $_[0][$i]->can('jacobian') |
|
134
|
0 |
0 |
if (@_) |
|
137
|
0 |
0 |
if (@_ == 1) { } |
|
172
|
0 |
0 |
unless @_ == 3 |
|
190
|
0 |
0 |
unless @_ == 4 |
|
263
|
0 |
0 |
ref $_[-1] eq 'HASH' ? : |
|
266
|
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($_);} @_)) { } |
|
275
|
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];})) { } |
|
281
|
0 |
0 |
if ref $_ eq 'ARRAY' |
|
329
|
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;}) |
|
338
|
0 |
0 |
defined $init->[$i] ? : |
|
349
|
0 |
0 |
$hash->{'inv_dlim'} || $self->[0]{'input_cs'} eq 'Lab ' ? : |
|
405
|
0 |
0 |
if $error < $elim |
|
433
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
439
|
0 |
0 |
defined $jac ? : |
|
446
|
0 |
0 |
unless defined $jac |
|
449
|
0 |
0 |
if (wantarray) { } |
|
473
|
0 |
0 |
if (defined $pcs) { } |
|
476
|
0 |
0 |
if (grep {$pcs == $_;} 3, 8) { } |
|
494
|
0 |
0 |
if (defined $self->[0]{'pcs_encoding'}) { } |
|
519
|
0 |
0 |
if (defined $wtpt) { } |
|
522
|
0 |
0 |
if (@{$wtpt;} == 3 and 3 == grep({not ref $_;} @{$wtpt;})) { } |
|
540
|
0 |
0 |
if (defined $self->[0]{'wtpt'}) { } |
|
569
|
0 |
0 |
ref $p eq 'ARRAY' ? : |
|
|
0 |
0 |
defined $p ? : |
|
572
|
0 |
0 |
defined $p->[0] && !ref($p->[0]) ? : |
|
578
|
0 |
0 |
if ($fmt =~ /s/) |
|
590
|
0 |
0 |
if (not defined $element) { } |
|
|
0 |
0 |
elsif (not &Scalar::Util::blessed($element)) { } |
|
|
0 |
0 |
elsif ($element->can('sdump')) { } |
|
605
|
0 |
0 |
defined $$p[$i + 1] ? : |
|
642
|
0 |
0 |
if ref $_[-1] eq 'HASH' |
|
664
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
690
|
0 |
0 |
if (defined $self->[1][$i] and $self->[2] & 1 << $i) |
|
729
|
0 |
0 |
if (@{$in;} == grep({not ref $_;} @{$in;})) { } |
|
740
|
0 |
0 |
if (ref $in->[$i] eq 'ARRAY') { } |
|
773
|
0 |
0 |
if ($self->[1][$i]->can('cin')) |
|
776
|
0 |
0 |
unless (defined $ci) |
|
784
|
0 |
0 |
if (defined $co) |
|
787
|
0 |
0 |
unless $self->[1][$i]->cin == $co |
|
794
|
0 |
0 |
if ($self->[1][$i]->can('cout')) |
|
821
|
0 |
0 |
unless $array->[$i]->can('_trans1') |
|
822
|
0 |
0 |
unless $array->[$i]->can('_trans2') |
|
823
|
0 |
0 |
unless $array->[$i]->can('jacobian') |
|
849
|
0 |
0 |
if ($tag->[0] =~ /^D2B[0-2]$/) { } |
|
|
0 |
0 |
elsif ($tag->[0] =~ /^B2D[0-2]$/) { } |
|
878
|
0 |
0 |
unless $mft[0] eq 'mpet' |
|
904
|
0 |
0 |
if (exists $hash{$tag2->[1]}) { } |
|
924
|
0 |
0 |
if ($class->can('new_fh')) { } |
|
980
|
0 |
0 |
unless ref($self->[1][$i]) =~ /^ICC::Profile::(cvst|matf|clut|Generic)$/ |
|
983
|
0 |
0 |
if (not exists $hash{$self->[1][$i]}) { } |
|
1016
|
0 |
0 |
unless (exists $hash{$self->[1][$i]}) |