PrusaSlicer-NonPlainar/lib/Slic3r/Point.pm

package Slic3r::Point;
use strict;
use warnings;

sub distance_to {
    my $self = shift;
    my ($point) = @_;
    return Slic3r::Geometry::distance_between_points($self, $point);
}

1;