| line |
true |
false |
branch |
|
171
|
0 |
2 |
unless &Getopt::Long::GetOptions('-', 'precision=f', \$CAD::Calc::linear_precision, 'angular=f', \$CAD::Calc::angular_precision) |
|
213
|
0 |
0 |
unless $dist |
|
239
|
0 |
0 |
unless $count |
|
266
|
0 |
0 |
if $lead + $tail >= $len |
|
285
|
0 |
0 |
unless ref $ptB eq 'ARRAY' |
|
346
|
0 |
0 |
unless ($delta[0]) |
|
347
|
0 |
0 |
if ($delta[1] > 0) { } |
|
384
|
0 |
0 |
unless $sl |
|
400
|
0 |
0 |
unless scalar @pts == 3 |
|
437
|
0 |
1 |
if $@ |
|
496
|
0 |
0 |
unless ref $l[$should] eq 'ARRAY' |
|
500
|
0 |
0 |
if (defined $tol) |
|
503
|
0 |
0 |
if ($d == 0) |
|
531
|
0 |
0 |
if (sprintf('%0.9f', $d) == 0) |
|
534
|
0 |
0 |
unless ($n1 / $d <= 1 and $n1 / $d >= 0) |
|
554
|
0 |
0 |
if (sprintf('%0.9f', $d) == 0) |
|
557
|
0 |
0 |
unless (sprintf('%0.9f', $n1 / $d) <= 1 and sprintf('%0.9f', $n1 / $d) >= 0) |
|
561
|
0 |
0 |
unless (sprintf('%0.9f', $n2 / $d) <= 1 and sprintf('%0.9f', $n2 / $d) >= 0) |
|
586
|
0 |
0 |
if (sprintf('%0.9f', $d) == 0) |
|
591
|
0 |
0 |
if ($n2 / $d < 0) |
|
617
|
0 |
0 |
if (sprintf('%0.9f', $d) == 0) |
|
621
|
0 |
0 |
unless ($n1 / $d <= 1 and $n1 / $d >= 0) |
|
625
|
0 |
0 |
if ($n2 / $d < 0) |
|
649
|
0 |
0 |
unless scalar @$ray == 2 |
|
652
|
0 |
0 |
if $n > $#$pgon |
|
655
|
0 |
0 |
if (defined $int[1]) |
|
674
|
0 |
0 |
unless scalar @$ray == 2 |
|
678
|
0 |
0 |
if $n > $#$pgon |
|
681
|
0 |
0 |
if (defined $int[1]) |
|
686
|
0 |
0 |
if (@found) { } |
|
778
|
0 |
0 |
unless @pgon > 2 |
|
786
|
0 |
0 |
unless $atmp |
|
798
|
0 |
0 |
unless @pgon > 2 |
|
811
|
0 |
0 |
unless $atmp |
|
950
|
0 |
0 |
unless scalar @pgons > 1 |
|
1016
|
0 |
0 |
if ($pgon[$i][0] < $x_fourth) |
|
1030
|
0 |
0 |
if ($pgon[$idx][1] < $pgon[$choice][1] + $yspan) |
|
1031
|
0 |
0 |
if $pgon[$idx][0] < $pgon[$choice][0] |
|
1047
|
0 |
0 |
unless (pgon_direction(@pgon)) |
|
1067
|
0 |
0 |
if $index < 0 |
|
1071
|
0 |
0 |
if $i > $#pgon |
|
1090
|
0 |
0 |
if ($dir eq 'left') { } |
|
|
0 |
0 |
elsif ($dir eq 'right') { } |
|
1124
|
0 |
0 |
if ref $opts eq 'HASH' |
|
1126
|
0 |
0 |
unless $offset > 0 |
|
1135
|
0 |
0 |
if ($options{'ends'}) { } |
|
1202
|
0 |
0 |
if ($seg[0][1] <= $$pt[1]) { } |
|
|
0 |
0 |
elsif ($seg[1][1] <= $$pt[1]) { } |
|
1203
|
0 |
0 |
if ($seg[1][1] > $$pt[1]) |
|
1204
|
0 |
0 |
if $isleft > 0 |
|
1209
|
0 |
0 |
if $isleft < 0 |
|
1235
|
0 |
0 |
if $bound[$i][1] <= $y && $y < $bound[$j][1] || $bound[$j][1] <= $y && $y < $bound[$i][1] and $x < ($bound[$j][0] - $bound[$i][0]) * ($y - $bound[$i][1]) / ($bound[$j][1] - $bound[$i][1]) + $bound[$i][0] |
|
1325
|
0 |
0 |
if ($ang =~ s/d$//) |
|
1363
|
0 |
0 |
unless @pts == 3 |
|
1387
|
0 |
0 |
unless @len == 3 |
|
1414
|
0 |
0 |
unless (defined $count) |
|
1434
|
0 |
0 |
unless defined $char |
|
1435
|
0 |
0 |
unless defined $rnd |
|
1436
|
0 |
0 |
unless defined $count |
|
1478
|
0 |
0 |
unless ($message) |
|
1521
|
0 |
0 |
$angle >= 0 ? : |
|
1529
|
0 |
0 |
if cos $eps == 0 |
|
1549
|
0 |
0 |
unless $dir > 0 |