File Coverage

blib/lib/Data/ZPath/NodeList.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	5	8	62.5
condition	2	6	33.3
subroutine	12	12	100.0
pod	7	8	87.5
total	63	71	88.7

use strict;
use warnings;

package Data::ZPath::NodeList;

use Scalar::Util qw(blessed);

our $VERSION = '0.001000';

sub new {
	my ( $class, @nodes ) = @_;
	return bless \@nodes, $class;
}

sub _new_or_list {
	my ( $class, @nodes ) = @_;
	wantarray ? @nodes : $class->new( @nodes );
}

sub all {
	my ( $self ) = @_;
	return @$self;
}

sub values {
	my ( $self ) = @_;
	return map $_->value, @$self;
}

sub first {
	my ( $self ) = @_;
	return $self->[0];
}

sub last {
	my ( $self ) = @_;
	return $self->[-1];
}

sub find {
	require Data::ZPath;
	my ( $self, $zpath ) = @_;
	$zpath = Data::ZPath->new( $zpath ) unless blessed($zpath);

	return ref($self)->_new_or_list( map $_->find($zpath), $self->all );
}

sub grep {
	my ( $self, $cb ) = @_;
	ref($self)->_new_or_list( grep {
		my $node = $_;
		local $_ = $node->value;
		$cb->();
	} $self->all );
}

sub map {
	my ( $self, $cb ) = @_;
	ref($self)->_new_or_list( map {
		my $node = $_;
		local $_ = $node->value;
		map {
			my $new = $_;
			blessed($new) && $new->isa('Data::ZPath::NodeList') ? $new->all :
			blessed($new) && $new->isa('Data::ZPath::Node') ? $new :
			Data::ZPath::Node->from_root( $new )
		} $cb->();
	} $self->all );
}

1;

__END__