sub new {
  my ($proto, $zinc, $args) = @_;
  
  my $self = {
    'zinc'      => $zinc,
    'bbox'      => $args->{'bbox'}    || [[0,0],[200,200]],
    'packer'    => $args->{'packer'}  || 'vertical',
  };  
...
}

sub packer { .. }