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] ? : |