| line |
true |
false |
branch |
|
169
|
0 |
2 |
unless &GetOptions('-', 'precision=f', \$CAD::Calc::linear_precision, 'angular=f', \$CAD::Calc::angular_precision) |
|
211
|
0 |
0 |
unless $dist |
|
237
|
0 |
0 |
unless $count |
|
264
|
0 |
0 |
if $lead + $tail >= $len |
|
283
|
0 |
0 |
unless ref $ptB eq 'ARRAY' |
|
344
|
0 |
0 |
unless ($delta[0]) |
|
345
|
0 |
0 |
if ($delta[1] > 0) { } |
|
382
|
0 |
0 |
unless $sl |
|
398
|
0 |
0 |
unless scalar @pts == 3 |
|
435
|
0 |
0 |
if $@ |
|
494
|
0 |
0 |
unless ref $l[$should] eq 'ARRAY' |
|
498
|
0 |
0 |
if (defined $tol) |
|
501
|
0 |
0 |
if ($d == 0) |
|
529
|
0 |
0 |
if (sprintf('%0.9f', $d) == 0) |
|
532
|
0 |
0 |
unless ($n1 / $d <= 1 and $n1 / $d >= 0) |
|
552
|
0 |
0 |
if (sprintf('%0.9f', $d) == 0) |
|
555
|
0 |
0 |
unless (sprintf('%0.9f', $n1 / $d) <= 1 and sprintf('%0.9f', $n1 / $d) >= 0) |
|
559
|
0 |
0 |
unless (sprintf('%0.9f', $n2 / $d) <= 1 and sprintf('%0.9f', $n2 / $d) >= 0) |
|
584
|
0 |
0 |
if (sprintf('%0.9f', $d) == 0) |
|
589
|
0 |
0 |
if ($n2 / $d < 0) |
|
615
|
0 |
0 |
if (sprintf('%0.9f', $d) == 0) |
|
619
|
0 |
0 |
unless ($n1 / $d <= 1 and $n1 / $d >= 0) |
|
623
|
0 |
0 |
if ($n2 / $d < 0) |
|
647
|
0 |
0 |
unless scalar @$ray == 2 |
|
650
|
0 |
0 |
if $n > $#$pgon |
|
653
|
0 |
0 |
if (defined $int[1]) |
|
672
|
0 |
0 |
unless scalar @$ray == 2 |
|
676
|
0 |
0 |
if $n > $#$pgon |
|
679
|
0 |
0 |
if (defined $int[1]) |
|
684
|
0 |
0 |
if (@found) { } |
|
773
|
0 |
0 |
unless @pgon > 2 |
|
781
|
0 |
0 |
unless $atmp |
|
793
|
0 |
0 |
unless @pgon > 2 |
|
806
|
0 |
0 |
unless $atmp |
|
945
|
0 |
0 |
unless scalar @pgons > 1 |
|
1011
|
0 |
0 |
if ($pgon[$i][0] < $x_fourth) |
|
1025
|
0 |
0 |
if ($pgon[$idx][1] < $pgon[$choice][1] + $yspan) |
|
1026
|
0 |
0 |
if $pgon[$idx][0] < $pgon[$choice][0] |
|
1042
|
0 |
0 |
unless (pgon_direction(@pgon)) |
|
1062
|
0 |
0 |
if $index < 0 |
|
1066
|
0 |
0 |
if $i > $#pgon |
|
1085
|
0 |
0 |
if ($dir eq 'left') { } |
|
|
0 |
0 |
elsif ($dir eq 'right') { } |
|
1119
|
0 |
0 |
if ref $opts eq 'HASH' |
|
1121
|
0 |
0 |
unless $offset > 0 |
|
1130
|
0 |
0 |
if ($options{'ends'}) { } |
|
1197
|
0 |
0 |
if ($seg[0][1] <= $pt->[1]) { } |
|
|
0 |
0 |
elsif ($seg[1][1] <= $pt->[1]) { } |
|
1198
|
0 |
0 |
if ($seg[1][1] > $pt->[1]) |
|
1199
|
0 |
0 |
if $isleft > 0 |
|
1204
|
0 |
0 |
if $isleft < 0 |
|
1230
|
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] |
|
1320
|
0 |
0 |
if ($ang =~ s/d$//) |
|
1358
|
0 |
0 |
unless @pts == 3 |
|
1382
|
0 |
0 |
unless @len == 3 |
|
1409
|
0 |
0 |
unless (defined $count) |
|
1429
|
0 |
0 |
unless defined $char |
|
1430
|
0 |
0 |
unless defined $rnd |
|
1431
|
0 |
0 |
unless defined $count |
|
1473
|
0 |
0 |
unless ($message) |
|
1516
|
0 |
0 |
$angle >= 0 ? : |
|
1524
|
0 |
0 |
if cos $eps == 0 |
|
1544
|
0 |
0 |
unless $dir > 0 |