File Coverage

blib/lib/XML/XPathEngine/NodeSet.pm

Criterion	Covered	Total	%
statement	50	73	68.4
branch	4	6	66.6
condition			n/a
subroutine	16	25	64.0
pod	13	22	59.0
total	83	126	65.8

# $Id: NodeSet.pm,v 1.17 2002/04/24 13:06:08 matt Exp $

package XML::XPathEngine::NodeSet;
use strict;

use XML::XPathEngine::Boolean;

use overload
		'""' => \&to_literal,
                'bool' => \&to_boolean,
        ;

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

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

sub reverse {
    my $self = CORE::shift;
    @$self = reverse @$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 getRootNode {
    my $self = CORE::shift;
    return $self->[0]->getRootNode;
}

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

sub getChildNodes {
    my $self = CORE::shift;
    return map { $_->getChildNodes } @$self;
}

sub getElementById {
    my $self = CORE::shift;
    return map { $_->getElementById } @$self;
}


sub to_boolean {
	my $self = CORE::shift;
	return (@$self > 0) ? XML::XPathEngine::Boolean->True : XML::XPathEngine::Boolean->False;
}

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

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

sub to_number {
	my $self = CORE::shift;
	return XML::XPathEngine::Number->new(
			$self->to_literal
			);
}

sub to_final_value {
	my $self = CORE::shift;
	return join('', map { $_->string_value } @$self);
}

sub string_values {
	my $self = CORE::shift;
	return map { $_->string_value } @$self;
}
1;
__END__