Little more reduce of Perl bindings

This commit is contained in:
Vojtech Bubnik 2022-04-28 17:02:33 +02:00
parent 3687bc28d5
commit d88e9634f5
8 changed files with 3 additions and 67 deletions

View file

@ -5,12 +5,6 @@ use warnings;
# a line is a two-points line
use parent 'Slic3r::Polyline';
sub intersection {
my $self = shift;
my ($line, $require_crossing) = @_;
return Slic3r::Geometry::line_intersection($self, $line, $require_crossing);
}
sub grow {
my $self = shift;
return Slic3r::Polyline->new(@$self)->grow(@_);