Move dump_perl() to Slic3r::Polyline

lib/Slic3r/Polygon.pm

@@ -7,11 +7,6 @@ use parent 'Slic3r::Polyline';
 
 use Slic3r::Geometry qw(PI);
 
-sub dump_perl {
-    my $self = shift;
-    return sprintf "[%s]", join ',', map "[$_->[0],$_->[1]]", @$self;
-}
-
 sub grow {
     my $self = shift;
     return $self->split_at_first_point->grow(@_);

lib/Slic3r/Polyline.pm

@@ -10,4 +10,9 @@ sub new_scale {
     return $class->new(map [ Slic3r::Geometry::scale($_->[X]), Slic3r::Geometry::scale($_->[Y]) ], @points);
 }
 
+sub dump_perl {
+    my $self = shift;
+    return sprintf "[%s]", join ',', map "[$_->[0],$_->[1]]", @$self;
+}
+
 1;