package Slic3r::ExtrusionLoop; use strict; use warnings; sub split_at { my $self = shift; return Slic3r::ExtrusionPath->new( polyline => $self->polygon->split_at(@_), role => $self->role, mm3_per_mm => $self->mm3_per_mm, ); } 1;