| blib/lib/Algorithm/LineSegments.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 0 | 4 | 0.0 |
| line | l | !l | condition |
|---|---|---|---|
| 76 | 0 | 0 | $o{'cost'} //= sub { my($left, $right) = @_; _normalised_euclidean($q[$left], $q[$right], $scale_to_unit); } |
| 82 | 0 | 0 | $o{'continue'} //= sub { my($count, $cost) = @_; return 0 if $count <= 3; return 1; } |