| line |
true |
false |
branch |
|
20
|
0 |
15 |
unless @_ & 1 |
|
24
|
0 |
15 |
unless defined $dimension |
|
25
|
0 |
15 |
if $dimension < 1 |
|
32
|
0 |
15 |
if %opts |
|
43
|
15 |
0 |
if defined $radius |
|
44
|
12 |
3 |
if defined $minimum_size |
|
45
|
15 |
0 |
if defined $ordered |
|
46
|
0 |
15 |
if (defined $scales) |
|
47
|
0 |
0 |
unless ref $scales eq 'ARRAY' |
|
50
|
1 |
14 |
if (defined $dimensional_groups) |
|
51
|
0 |
1 |
unless ref $dimensional_groups eq 'ARRAY' |
|
60
|
0 |
162 |
if @_ % $dimension |
|
73
|
0 |
0 |
unless @_ == 2 |
|
76
|
0 |
0 |
if $ix > $top or $ix < 0 |
|
78
|
0 |
0 |
if $$self{'dimension'} == 1 |
|
80
|
0 |
0 |
unless wantarray |
|
87
|
0 |
51 |
if @_ > 2 |
|
89
|
51 |
0 |
if (@_) |
|
91
|
0 |
51 |
unless $radius > 0 |
|
99
|
0 |
15 |
if @_ > 2 |
|
101
|
15 |
0 |
if (@_) |
|
109
|
0 |
12 |
if @_ > 2 |
|
111
|
12 |
0 |
if (@_) |
|
113
|
0 |
12 |
unless $minimum_size > 0 |
|
123
|
0 |
0 |
if (@_) |
|
124
|
0 |
0 |
unless @_ == $dimension |
|
125
|
0 |
0 |
if grep(($_ <= 0), @_) |
|
136
|
253 |
510 |
if (@_) |
|
141
|
0 |
253 |
unless @all == $dimension and join('|', @all) eq join('|', 0 .. $dimension - 1) |
|
179
|
49 |
196 |
if $c1_xmin - $c2_xmax > 1 |
|
183
|
25 |
171 |
if $c2_xmin - $c1_xmax > 1 |
|
187
|
34 |
137 |
if $c1_ymin - $c2_ymax > 1 |
|
191
|
26 |
111 |
if $c2_ymin - $c1_ymax > 1 |
|
197
|
84 |
55 |
if $dx * $dx + $dy * $dy <= 1 |
|
210
|
349 |
4447 |
if $c1_min - $c2_max > 1 |
|
214
|
329 |
4118 |
if $c2_min - $c1_max > 1 |
|
225
|
337 |
1470 |
if $sum > 1 |
|
241
|
672 |
1362 |
if $scale == 1 |
|
252
|
14 |
241 |
_hypercylinder_id($self->dimensional_groups) eq '0,1' ? : |
|
260
|
0 |
14 |
unless $$self{'dimension'} == 2 |
|
264
|
0 |
14 |
unless @$ax |
|
301
|
459 |
876 |
unless defined $ifx |
|
305
|
602 |
3778 |
if $dy * $dy > $filter |
|
307
|
953 |
2825 |
unless defined $ify |
|
310
|
84 |
251 |
if (defined $cluster and not $cluster{$cluster} and _touch_2($cell{$cell}, $cell{$neighbor}, $ax, $ay)) |
|
317
|
72 |
195 |
if (%cluster) { } |
|
319
|
12 |
60 |
if (keys %cluster > 1) { } |
|
323
|
11 |
13 |
defined $cells ? : |
|
324
|
17 |
7 |
if ($n > $max) |
|
333
|
3 |
9 |
if (defined $neighbors) { } |
|
358
|
28 |
0 |
if (@points >= $$self{'minimum_size'}) |
|
359
|
28 |
0 |
if $$self{'ordered'} |
|
365
|
14 |
0 |
if $$self{'ordered'} |
|
396
|
353442 |
92446 |
$_ ? : |
|
422
|
0 |
241 |
unless $top >= 0 |
|
465
|
5222970 |
16035609 |
unless $ifls[$_]{$fl[$_] + $$delta[$_]} |
|
469
|
768 |
6498 |
if (defined $cluster and not $cluster{$cluster} and _touch($cell{$cell}, $cell{$neighbor}, $coords, $groups)) |
|
475
|
727 |
5326 |
if (%cluster) { } |
|
477
|
35 |
692 |
if (keys %cluster > 1) { } |
|
481
|
35 |
41 |
defined $cells ? : |
|
482
|
48 |
28 |
if ($n > $max) |
|
491
|
11 |
30 |
if (defined $neighbors) { } |
|
516
|
186 |
0 |
if (@points >= $$self{'minimum_size'}) |
|
517
|
186 |
0 |
if $$self{'ordered'} |
|
523
|
241 |
0 |
if $$self{'ordered'} |
|
530
|
14 |
241 |
_hypercylinder_id($self->dimensional_groups) eq '0,1' ? : |
|
536
|
0 |
14 |
unless @_ == 1 |
|
539
|
0 |
14 |
unless $$self{'dimension'} == 2 |
|
543
|
0 |
14 |
unless @$ax |
|
559
|
150 |
7185 |
if ($dx * $dx + $dy * $dy <= 1) |
|
565
|
150 |
5855 |
if (@queue) { } |
|
568
|
637 |
3313 |
unless defined $done |
|
572
|
44 |
3269 |
if ($dx * $dx + $dy * $dy <= 1) |
|
585
|
183 |
0 |
if (@current >= $$self{'minimum_size'}) |
|
586
|
183 |
0 |
if $$self{'ordered'} |
|
591
|
14 |
0 |
if $$self{'ordered'} |
|
604
|
220049 |
11085 |
if $sum > 1 |
|
611
|
0 |
241 |
unless @_ == 1 |
|
617
|
0 |
241 |
unless @ix |
|
631
|
2947 |
210130 |
if (_points_touch($ix, $current, $coords, $groups)) |
|
636
|
2947 |
203293 |
if (@queue) { } |
|
639
|
2281 |
10028 |
unless defined $done |
|
641
|
109 |
9919 |
if (_points_touch($ix, $done, $coords, $groups)) |
|
653
|
5285 |
0 |
if (@current >= $$self{'minimum_size'}) |
|
654
|
5285 |
0 |
if $$self{'ordered'} |
|
659
|
241 |
0 |
if $$self{'ordered'} |
|
664
|
0 |
0 |
unless @_ == 3 |