File Coverage

blib/lib/Tree/XPathEngine/NodeSet.pm

Criterion	Covered	Total	%
statement	46	58	79.3
branch	4	6	66.6
condition			n/a
subroutine	15	20	75.0
pod	17	17	100.0
total	82	101	81.1

# $Id: /tree-xpathengine/trunk/lib/Tree/XPathEngine/NodeSet.pm 17 2006-02-12T08:00:01.814064Z mrodrigu  $

package Tree::XPathEngine::NodeSet;
use strict;

use Tree::XPathEngine::Boolean;

use overload
		'""' => \&xpath_to_literal,
    'bool' => \&xpath_to_boolean,
        ;

sub new {
	my $class = shift;
	bless [], $class;
}

sub sort {
    my $self = CORE::shift;
    @$self = CORE::sort { $a->xpath_cmp( $b) } @$self;
    return $self;
}

sub remove_duplicates {
    my $self = CORE::shift;
		my @unique;
		my $last_node=0;
		foreach my $node (@$self) {
				push @unique, $node unless( $node == $last_node);
				$last_node= $node;
		}
		@$self= @unique;
		return $self;
}


sub pop {
	my $self = CORE::shift;
	CORE::pop @$self;
}

sub push {
	my $self = CORE::shift;
	my (@nodes) = @_;
	CORE::push @$self, @nodes;
}

sub append {
	my $self = CORE::shift;
	my ($nodeset) = @_;
	CORE::push @$self, $nodeset->get_nodelist;
}

sub shift {
	my $self = CORE::shift;
	CORE::shift @$self;
}

sub unshift {
	my $self = CORE::shift;
	my (@nodes) = @_;
	CORE::unshift @$self, @nodes;
}

sub prepend {
	my $self = CORE::shift;
	my ($nodeset) = @_;
	CORE::unshift @$self, $nodeset->get_nodelist;
}

sub size {
	my $self = CORE::shift;
	scalar @$self;
}

sub get_node { # uses array index starting at 1, not 0
	my $self = CORE::shift;
	my ($pos) = @_;
	$self->[$pos - 1];
}

sub xpath_get_root_node {
    my $self = CORE::shift;
    return $self->[0]->xpath_get_root_node;
}

sub get_nodelist {
	my $self = CORE::shift;
	@$self;
}

sub xpath_to_boolean {
	my $self = CORE::shift;
	return (@$self > 0) ? Tree::XPathEngine::Boolean->_true : Tree::XPathEngine::Boolean->_false;
}

sub xpath_string_value {
	my $self = CORE::shift;
	return '' unless @$self;
	return $self->[0]->xpath_string_value;
}

sub xpath_to_literal {
	my $self = CORE::shift;
	return Tree::XPathEngine::Literal->new(
			join('', map { $_->xpath_string_value } @$self)
			);
}

sub xpath_to_number {
	my $self = CORE::shift;
	return Tree::XPathEngine::Number->new(
			$self->xpath_to_literal
			);
}

1;
__END__