| line |
true |
false |
branch |
|
42
|
0 |
7 |
if (ref $_[0] eq 'HASH') { } |
|
52
|
2 |
5 |
if $sx == 1 and $sy == 1 |
|
54
|
1 |
4 |
defined $args->{'center'} ? : |
|
56
|
1 |
4 |
$cx || $cy ? : |
|
64
|
0 |
3 |
if (ref $_[0] eq 'HASH') { } |
|
73
|
2 |
1 |
if $dx == 0 and $dy == 0 |
|
81
|
0 |
6 |
if (ref $_[0] eq 'HASH') { } |
|
92
|
5 |
0 |
exists $args->{'degrees'} ? : |
|
|
1 |
5 |
exists $args->{'radians'} ? : |
|
94
|
3 |
3 |
unless $angle |
|
100
|
1 |
2 |
defined $args->{'center'} ? : |
|
101
|
2 |
1 |
unless $cx or $cy |
|
115
|
0 |
4 |
if (ref $_[0] eq 'HASH') { } |
|
123
|
3 |
1 |
exists $args->{'raster'} ? : |
|
124
|
1 |
3 |
if $raster == 0 |
|
127
|
1 |
2 |
if $raster > "0.99999" and $raster < "1.00001" |
|
136
|
0 |
8 |
if (ref $_[0] eq 'HASH') { } |
|
144
|
1 |
7 |
if (defined $args->{'x'}) |
|
149
|
1 |
6 |
if (defined $args->{'y'}) |
|
157
|
3 |
3 |
if (exists $args->{'rc'}) { } |
|
|
3 |
0 |
elsif (my $through = $args->{'line'}) { } |
|
163
|
1 |
2 |
if ($p0->[0] == $p1->[0]) { } |
|
175
|
2 |
4 |
unless (defined $rc) |
|
195
|
4 |
6 |
if $a > "3.14159265358979" |
|
201
|
0 |
11 |
if (ref $_[0] eq 'HASH') { } |
|
209
|
0 |
11 |
unless @_ |
|
226
|
16 |
74 |
if ($d01 < $same) |
|
232
|
8 |
8 |
!@new ? : |
|
238
|
67 |
7 |
unless (@_ >= 2 and defined $slope) |
|
248
|
2 |
5 |
if ($d01 + $d12 <= $d02 + $slope) |
|
257
|
1 |
4 |
if (@_ > 2 and abs $d01 - $d12 - $d02 < $slope) |
|
263
|
1 |
0 |
if ($d01 - $d13 <= $d03 + $slope) |
|
275
|
18 |
4 |
if defined $p |
|
277
|
2 |
10 |
if $is_ring and $new[0][0] != $new[-1][0] || $new[0][1] != $new[-1][1] |
|
284
|
9 |
2 |
unless exists $args->{'max_points'} |
|
294
|
1 |
1 |
if ($is_ring) { } |
|
295
|
0 |
1 |
if @_ <= $max_angles |
|
300
|
0 |
1 |
if @_ <= $max_angles |
|
317
|
1 |
1 |
if $is_ring |