Branch Coverage

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


line true false branch
70 0 1 if (@_ == 2 or @_ == 3) { }
0 1 elsif (@_) { }
100 0 0 if (@_)
103 0 0 if (@_ == 1 and ref $_[0] eq 'HASH') { }
132 0 0 if (@_)
135 0 0 if (@_ == 1) { }
163 0 0 if (@_)
166 0 0 if (@_ == 1) { }
202 0 0 if (@_ == 0) { }
0 0 elsif (@_ == 2 and 2 == grep({&Scalar::Util::looks_like_number($_);} @_)) { }
208 0 0 if (defined $self->[1][$i][1] and defined $self->[1][$i][2] and $self->[1][$i][1][1] != 0) { }
232 0 0 if ($_[$i] and defined $self->[1][$i][1])
272 0 0 ref $_[-1] eq 'HASH' ? :
275 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($_);} @_)) { }
284 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];})) { }
290 0 0 if ref $_ eq 'ARRAY'
328 0 0 ref $_[-1] eq 'HASH' ? :
331 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($_);} @_)) { }
340 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];})) { }
346 0 0 if ref $_ eq 'ARRAY'
385 0 0 unless @{$in;} == 3
400 0 0 if ($self->[2][0]) { }
0 0 elsif ($pcsi <= 5 and $pcso >= 6) { }
0 0 elsif ($pcsi >= 6 and $pcso <= 5) { }
403 0 0 if ($pcsi <= 5)
433 0 0 if ($pcso <= 5)
467 0 0 if (wantarray) { }
492 0 0 unless $self->[1][0][1][$_] != $self->[1][1][1][$_]
495 0 0 if ($lin = $self->[2][1]) { }
542 0 0 ref $p eq 'ARRAY' ? :
0 0 defined $p ? :
545 0 0 defined $p->[0] && !ref($p->[0]) ? :
567 0 0 if ref $_[-1] eq 'HASH'
607 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
636 0 0 if (@{$in;} == grep({not ref $_;} @{$in;})) { }
647 0 0 if (ref $in->[$i] eq 'ARRAY') { }
677 0 0 if ref $_[-1] eq 'HASH'
717 0 0 UNIVERSAL::isa($in, 'Math::Matrix') ? :
746 0 0 if (@{$in;} == grep({not ref $_;} @{$in;})) { }
757 0 0 if (ref $in->[$i] eq 'ARRAY') { }
788 0 0 unless @in == 3
800 0 0 if ($self->[2][0]) { }
0 0 elsif ($pcsi <= 5 and $pcso >= 6) { }
0 0 elsif ($pcsi >= 6 and $pcso <= 5) { }
803 0 0 if $pcsi <= 5
809 0 0 if $pcso <= 5
843 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) { }
846 0 0 if ($clip) { }
849 0 0 $_ > 1 ? :
0 0 $_ < 0 ? :
862 0 0 if ($clip) { }
865 0 0 $in[0] > 100 ? :
868 0 0 $_ > 1 ? :
0 0 $_ < 0 ? :
881 0 0 if ($clip) { }
884 0 0 $_ > 1 ? :
0 0 $_ < 0 ? :
918 0 0 $denom ? :
924 0 0 if ($clip) { }
927 0 0 $_ > 1 ? :
0 0 $_ < 0 ? :
976 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) { }
1015 0 0 $in[1] ? :
1066 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) { }
1129 0 0 if ($denom = 96.42 * $in[0] + 100 * $in[1] + 82.49 * $in[2]) { }
1217 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) { }
1280 0 0 if ($in[1]) { }
1372 0 0 if ($lin = $self->[2][1]) { }
1375 0 0 if ($dir) { }
1387 0 0 $t == 0 ? :
1403 0 0 $t == 0 ? :
1413 0 0 if ($dir) { }
1419 0 0 $self->[2][2][$i] == 0 ? :
1455 0 0 if ($lin = $self->[2][1]) { }
1458 0 0 if ($dir) { }
1467 0 0 $t > 0 ? :
1480 0 0 $t > 0 ? :
1490 0 0 if ($dir) { }
1496 0 0 $self->[2][2][$i] == 0 ? :
1540 0 0 unless ref $_[$i] eq 'ARRAY'
1543 0 0 unless @{$_[$i];} >= 1 or @{$_[$i];} <= 3
1546 0 0 unless grep {$_[$i][0] == $_;} @cs
1552 0 0 if (defined $_[$i][1]) { }
1555 0 0 unless ref $_[$i][1] eq 'ARRAY'
1558 0 0 unless 3 == grep({not ref $_;} @{$_[$i][1];})
1571 0 0 if (defined $_[$i][2]) { }
1574 0 0 unless ref $_[$i][2] eq 'ARRAY'
1577 0 0 unless 3 == grep({not ref $_;} @{$_[$i][2];})
1592 0 0 defined $_[2] ? :