1 package HTML::Zoom::SubObject;
7 my ($class, $args) = @_;
8 ($args||={})->{zconfig} ||= do {
9 require HTML::Zoom::ZConfig;
10 HTML::Zoom::ZConfig->new
12 my $new = { _zconfig => $args->{zconfig} };
13 Scalar::Util::weaken($new->{_zconfig});
17 sub _zconfig { shift->{_zconfig} }
20 my ($self, $zconfig) = @_;
21 my $new = bless({ %$self, _zconfig => $zconfig }, ref($self));
22 Scalar::Util::weaken($new->{_zconfig});