From c63d5da5c2259af514a7d69ab19f4de9f6e9cad0 Mon Sep 17 00:00:00 2001 From: Alessandro Ranellucci Date: Wed, 24 Dec 2014 00:11:13 +0100 Subject: [PATCH] Move dump_perl() to Slic3r::Polyline --- lib/Slic3r/Polygon.pm | 5 ----- lib/Slic3r/Polyline.pm | 5 +++++ 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/Slic3r/Polygon.pm b/lib/Slic3r/Polygon.pm index 1d089189c1..16b334b3af 100644 --- a/lib/Slic3r/Polygon.pm +++ b/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(@_); diff --git a/lib/Slic3r/Polyline.pm b/lib/Slic3r/Polyline.pm index a42b5d1c4a..9cc1424093 100644 --- a/lib/Slic3r/Polyline.pm +++ b/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;