Don't require the print object in filler objects

This commit is contained in:
Alessandro Ranellucci 2012-10-30 14:34:41 +01:00
parent 5943114574
commit 6c97e588b1
2 changed files with 10 additions and 6 deletions

View file

@ -45,9 +45,13 @@ sub BUILD {
sub filler {
my $self = shift;
my ($filler) = @_;
if (!$self->fillers->{$filler}) {
$self->fillers->{$filler} = $FillTypes{$filler}->new(print => $self->print);
$self->fillers->{$filler}->max_print_dimension($self->max_print_dimension);
my $f = $FillTypes{$filler}->new(
max_print_dimension => $self->max_print_dimension
);
$f->bounding_box([ $self->print->bounding_box ]) if $filler->can('bounding_box');
$self->fillers->{$filler} = $f;
}
return $self->fillers->{$filler};
}