__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
# $Id: Root.pm,v 1.6 2001/03/16 11:10:08 matt Exp $
package XML::XPathEngine::Root;
use strict;
use XML::XPathEngine::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::XPathEngine::NodeSet->new();
$newset->push($nodeset->get_node(1)->getRootNode());
return $newset;
}
1;
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| Boolean.pm | File | 1.31 KB | 0644 |
|
| Expr.pm | File | 19.61 KB | 0644 |
|
| Function.pm | File | 10.8 KB | 0644 |
|
| Literal.pm | File | 2.17 KB | 0644 |
|
| LocationPath.pm | File | 1.1 KB | 0644 |
|
| NodeSet.pm | File | 4.06 KB | 0644 |
|
| Number.pm | File | 1.76 KB | 0644 |
|
| Root.pm | File | 634 B | 0644 |
|
| Step.pm | File | 14.17 KB | 0644 |
|
| Variable.pm | File | 850 B | 0644 |
|