1 package HTML::Zoom::SubObject;
4 use warnings FATAL => 'all';
8 my ($class, $args) = @_;
9 ($args||={})->{zconfig} ||= do {
10 require HTML::Zoom::ZConfig;
11 HTML::Zoom::ZConfig->new
13 my $new = { _zconfig => $args->{zconfig} };
14 Scalar::Util::weaken($new->{_zconfig});
18 sub _zconfig { shift->{_zconfig} }
21 my ($self, $zconfig) = @_;
22 my $new = bless({ %$self, _zconfig => $zconfig }, ref($self));
23 Scalar::Util::weaken($new->{_zconfig});