diff options
author | Lorry Tar Creator <lorry-tar-importer@baserock.org> | 2003-01-26 19:35:03 +0000 |
---|---|---|
committer | <> | 2015-02-23 10:18:26 +0000 |
commit | a2d12bc84fb2af87dd1c0c6e5bc854554902cd67 (patch) | |
tree | 7665979c7c281b21971de576d93246a022bff649 /XPath/Root.pm | |
download | perl-xml-xpath-master.tar.gz |
Imported from /home/lorry/working-area/delta_perl-xml-xpath/XML-XPath-1.13.tar.gz.HEADXML-XPath-1.13master
Diffstat (limited to 'XPath/Root.pm')
-rw-r--r-- | XPath/Root.pm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/XPath/Root.pm b/XPath/Root.pm new file mode 100644 index 0000000..ee5914b --- /dev/null +++ b/XPath/Root.pm @@ -0,0 +1,36 @@ +# $Id: Root.pm,v 1.6 2001/03/16 11:10:08 matt Exp $ + +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; |