update

lib/Slic3r/Layer.pm

@@ -0,0 +1,37 @@
+# Extends the C++ class Slic3r::Layer.
+
+package Slic3r::Layer;
+use strict;
+use warnings;
+
+# the following two were previously generated by Moo
+sub print {
+    my $self = shift;
+    return $self->object->print;
+}
+
+sub config {
+    my $self = shift;
+    return $self->object->config;
+}
+
+sub region {
+    my $self = shift;
+    my ($region_id) = @_;
+    
+    while ($self->region_count <= $region_id) {
+        $self->add_region($self->object->print->get_region($self->region_count));
+    }
+    
+    return $self->get_region($region_id);
+}
+
+sub regions {
+    my ($self) = @_;
+    return [ map $self->get_region($_), 0..($self->region_count-1) ];
+}
+
+package Slic3r::Layer::Support;
+our @ISA = qw(Slic3r::Layer);
+
+1;