File Coverage

blib/lib/HTML/Zoom/SubObject.pm

Criterion	Covered	Total	%
statement	14	18	77.7
branch			n/a
condition	4	5	80.0
subroutine	4	5	80.0
pod	0	2	0.0
total	22	30	73.3

package HTML::Zoom::SubObject;

use strictures 1;
use Scalar::Util ();

sub new {
  my ($class, $args) = @_;
  ($args||={})->{zconfig} ||= do {
    require HTML::Zoom::ZConfig;
    HTML::Zoom::ZConfig->new
  };
  my $new = { _zconfig => $args->{zconfig} };
  Scalar::Util::weaken($new->{_zconfig});
  bless($new, $class)
}

sub _zconfig { shift->{_zconfig} }

sub with_zconfig {
  my ($self, $zconfig) = @_;
  my $new = bless({ %$self, _zconfig => $zconfig }, ref($self));
  Scalar::Util::weaken($new->{_zconfig});
  $new
}

1;