File Coverage

blib/lib/Data/ZPath/_Ctx.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	9	9	100.0
pod	0	5	0.0
total	37	42	88.1

use strict;
use warnings;

package Data::ZPath::_Ctx;

use Data::ZPath::Node;
use Scalar::Util qw(blessed);

our $VERSION = '0.001000';

sub new {
	my ( $class, $root ) = @_;

	my $root_node;
	if ( blessed($root) and $root->isa('Data::ZPath::Node') ) {
		$root_node = $root;
	}
	else {
		$root_node = Data::ZPath::Node->from_root($root);
	}

	return bless {
		root      => $root_node,
		nodeset   => [$root_node],
		parentset => undef,
	}, $class;
}

sub with_nodeset {
	my ( $self, $nodeset, $parentset ) = @_;
	return bless {
		%$self,
		nodeset   => $nodeset,
		parentset => $parentset,
	}, ref($self);
}

sub root      { $_[0]->{root} }
sub nodeset   { $_[0]->{nodeset} }
sub parentset { $_[0]->{parentset} }

1;