Branch Coverage

lib/ICC/Support/PCS.pm
Criterion Covered Total %
branch 2 270 0.7


line true false branch
73 0 1 if (@_ == 2 or @_ == 3) { }
0 1 elsif (@_) { }
103 0 0 if (@_)
106 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
135 0 0 if (@_)
138 0 0 if (@_ == 1) { }
166 0 0 if (@_)
169 0 0 if (@_ == 1) { }
205 0 0 if (@_ == 0) { }
0 0 elsif (@_ == 2 and 2 == grep({&Scalar::Util::looks_like_number($_);} @_)) { }
211 0 0 if (defined $self->[1][$i][1] and defined $self->[1][$i][2] and $self->[1][$i][1][1] != 0) { }
235 0 0 if ($_[$i] and defined $self->[1][$i][1])
275 0 0 ref $_[-1] eq 'HASH' ? :
278 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($_);} @_)) { }
287 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];})) { }
293 0 0 if ref $_ eq 'ARRAY'
331 0 0 ref $_[-1] eq 'HASH' ? :
334 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($_);} @_)) { }
343 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];})) { }
349 0 0 if ref $_ eq 'ARRAY'
388 0 0 unless @{$in;} == 3
403 0 0 if ($self->[2][0]) { }
0 0 elsif ($pcsi <= 5 and $pcso >= 6) { }
0 0 elsif ($pcsi >= 6 and $pcso <= 5) { }
406 0 0 if ($pcsi <= 5)
436 0 0 if ($pcso <= 5)
470 0 0 if (wantarray) { }
495 0 0 unless $self->[1][0][1][$_] != $self->[1][1][1][$_]
498 0 0 if ($lin = $self->[2][1]) { }
545 0 0 ref $p eq 'ARRAY' ? :
0 0 defined $p ? :
548 0 0 defined $p->[0] && !ref($p->[0]) ? :
570 0 0 if ref $_[-1] eq 'HASH'
610 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
639 0 0 if (@{$in;} == grep({not ref $_;} @{$in;})) { }
650 0 0 if (ref $in->[$i] eq 'ARRAY') { }
680 0 0 if ref $_[-1] eq 'HASH'
720 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
749 0 0 if (@{$in;} == grep({not ref $_;} @{$in;})) { }
760 0 0 if (ref $in->[$i] eq 'ARRAY') { }
791 0 0 unless @in == 3
803 0 0 if ($self->[2][0]) { }
0 0 elsif ($pcsi <= 5 and $pcso >= 6) { }
0 0 elsif ($pcsi >= 6 and $pcso <= 5) { }
806 0 0 if $pcsi <= 5
812 0 0 if $pcso <= 5
846 0 0 if ($pcs == 0) { }
0 0 elsif ($pcs == 1) { }
0 0 elsif ($pcs == 2) { }
0 0 elsif ($pcs == 3) { }
0 0 elsif ($pcs == 4) { }
0 0 elsif ($pcs == 5) { }
0 0 elsif ($pcs == 6) { }
0 0 elsif ($pcs == 7) { }
0 0 elsif ($pcs == 8) { }
0 0 elsif ($pcs == 9) { }
0 0 elsif ($pcs == 10) { }
849 0 0 if ($clip) { }
852 0 0 $_ > 1 ? :
0 0 $_ < 0 ? :
865 0 0 if ($clip) { }
868 0 0 $in[0] > 100 ? :
871 0 0 $_ > 1 ? :
0 0 $_ < 0 ? :
884 0 0 if ($clip) { }
887 0 0 $_ > 1 ? :
0 0 $_ < 0 ? :
921 0 0 $denom ? :
927 0 0 if ($clip) { }
930 0 0 $_ > 1 ? :
0 0 $_ < 0 ? :
979 0 0 if ($pcs == 0) { }
0 0 elsif ($pcs == 1) { }
0 0 elsif ($pcs == 2) { }
0 0 elsif ($pcs == 3) { }
0 0 elsif ($pcs == 4) { }
0 0 elsif ($pcs == 5) { }
0 0 elsif ($pcs == 6) { }
0 0 elsif ($pcs == 7) { }
0 0 elsif ($pcs == 8) { }
0 0 elsif ($pcs == 9) { }
0 0 elsif ($pcs == 10) { }
1018 0 0 $in[1] ? :
1069 0 0 if ($pcs == 0) { }
0 0 elsif ($pcs == 1) { }
0 0 elsif ($pcs == 2) { }
0 0 elsif ($pcs == 3) { }
0 0 elsif ($pcs == 4) { }
0 0 elsif ($pcs == 5) { }
0 0 elsif ($pcs == 6) { }
0 0 elsif ($pcs == 7) { }
0 0 elsif ($pcs == 8) { }
0 0 elsif ($pcs == 9) { }
0 0 elsif ($pcs == 10) { }
1132 0 0 if ($denom = 96.42 * $in[0] + 100 * $in[1] + 82.49 * $in[2]) { }
1220 0 0 if ($pcs == 0) { }
0 0 elsif ($pcs == 1) { }
0 0 elsif ($pcs == 2) { }
0 0 elsif ($pcs == 3) { }
0 0 elsif ($pcs == 4) { }
0 0 elsif ($pcs == 5) { }
0 0 elsif ($pcs == 6) { }
0 0 elsif ($pcs == 7) { }
0 0 elsif ($pcs == 8) { }
0 0 elsif ($pcs == 9) { }
0 0 elsif ($pcs == 10) { }
1283 0 0 if ($in[1]) { }
1375 0 0 if ($lin = $self->[2][1]) { }
1378 0 0 if ($dir) { }
1390 0 0 $t == 0 ? :
1406 0 0 $t == 0 ? :
1416 0 0 if ($dir) { }
1422 0 0 $self->[2][2][$i] == 0 ? :
1458 0 0 if ($lin = $self->[2][1]) { }
1461 0 0 if ($dir) { }
1470 0 0 $t > 0 ? :
1483 0 0 $t > 0 ? :
1493 0 0 if ($dir) { }
1499 0 0 $self->[2][2][$i] == 0 ? :
1543 0 0 unless ref $_[$i] eq 'ARRAY'
1546 0 0 unless @{$_[$i];} >= 1 or @{$_[$i];} <= 3
1549 0 0 unless grep {$_[$i][0] == $_;} @cs
1555 0 0 if (defined $_[$i][1]) { }
1558 0 0 unless ref $_[$i][1] eq 'ARRAY'
1561 0 0 unless 3 == grep({not ref $_;} @{$_[$i][1];})
1574 0 0 if (defined $_[$i][2]) { }
1577 0 0 unless ref $_[$i][2] eq 'ARRAY'
1580 0 0 unless 3 == grep({not ref $_;} @{$_[$i][2];})
1595 0 0 defined $_[2] ? :