update

lib/Slic3r/Surface.pm

@@ -0,0 +1,15 @@
+package Slic3r::Surface;
+use strict;
+use warnings;
+
+require Exporter;
+our @ISA = qw(Exporter);
+our @EXPORT_OK   = qw(S_TYPE_TOP S_TYPE_BOTTOM S_TYPE_BOTTOMBRIDGE S_TYPE_INTERNAL S_TYPE_INTERNALSOLID S_TYPE_INTERNALBRIDGE S_TYPE_INTERNALVOID);
+our %EXPORT_TAGS = (types => \@EXPORT_OK);
+
+sub p {
+    my $self = shift;
+    return @{$self->polygons};
+}
+
+1;