package Slic3r::Print::Object; # extends c++ class Slic3r::PrintObject (Print.xsp) use strict; use warnings; use List::Util qw(min max sum first); use Slic3r::Surface ':types'; sub layers { my $self = shift; return [ map $self->get_layer($_), 0..($self->layer_count - 1) ]; } 1;