source: trunk/gsdl/perllib/cpan/XML/XPath/Root.pm@ 7909

# $Id: Root.pm 7909 2004-08-06 05:11:55Z mdewsnip $

package XML::XPath::Root;
use strict;
use XML::XPath::XMLParser;
use XML::XPath::NodeSet;

sub new {
    my $class = shift;
    my $self; # actually don't need anything here - just a placeholder
    bless \$self, $class;
}

sub as_string {
    # do nothing
}

sub as_xml {
    return "<Root/>\n";
}

sub evaluate {
    my $self = shift;
    my $nodeset = shift;
    
#   warn "Eval ROOT\n";
    
    # must only ever occur on 1 node
    die "Can't go to root on > 1 node!" unless $nodeset->size == 1;
    
    my $newset = XML::XPath::NodeSet->new();
    $newset->push($nodeset->get_node(1)->getRootNode());
    return $newset;
}

1;