[ Index ] |
PHP Cross Reference of Unnamed Project |
[Summary view] [Print] [Text view]
1 # $Id: Root.pm,v 1.6 2001/03/16 11:10:08 matt Exp $ 2 3 package XML::XPath::Root; 4 use strict; 5 use XML::XPath::XMLParser; 6 use XML::XPath::NodeSet; 7 8 sub new { 9 my $class = shift; 10 my $self; # actually don't need anything here - just a placeholder 11 bless \$self, $class; 12 } 13 14 sub as_string { 15 # do nothing 16 } 17 18 sub as_xml { 19 return "<Root/>\n"; 20 } 21 22 sub evaluate { 23 my $self = shift; 24 my $nodeset = shift; 25 26 # warn "Eval ROOT\n"; 27 28 # must only ever occur on 1 node 29 die "Can't go to root on > 1 node!" unless $nodeset->size == 1; 30 31 my $newset = XML::XPath::NodeSet->new(); 32 $newset->push($nodeset->get_node(1)->getRootNode()); 33 return $newset; 34 } 35 36 1;
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
Generated: Tue Mar 17 22:47:18 2015 | Cross-referenced by PHPXref 0.7.1 |