diff options
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/LibXML/NodeList.pm')
| -rw-r--r-- | chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/LibXML/NodeList.pm | 191 |
1 files changed, 0 insertions, 191 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/LibXML/NodeList.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/LibXML/NodeList.pm deleted file mode 100644 index 466efb04bef..00000000000 --- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/i686-cygwin/XML/LibXML/NodeList.pm +++ /dev/null @@ -1,191 +0,0 @@ -# $Id: NodeList.pm 709 2008-01-29 21:01:32Z pajas $ - -package XML::LibXML::NodeList; -use strict; -use XML::LibXML::Boolean; -use XML::LibXML::Literal; -use XML::LibXML::Number; - -use vars qw ($VERSION); -$VERSION = "1.66"; # VERSION TEMPLATE: DO NOT CHANGE - -use overload - '""' => \&to_literal, - 'bool' => \&to_boolean, - ; - -sub new { - my $class = shift; - bless [@_], $class; -} - -sub new_from_ref { - my ($class,$array_ref,$reuse) = @_; - return bless $reuse ? $array_ref : [@$array_ref], $class; -} - -sub pop { - my $self = CORE::shift; - CORE::pop @$self; -} - -sub push { - my $self = CORE::shift; - CORE::push @$self, @_; -} - -sub append { - my $self = CORE::shift; - my ($nodelist) = @_; - CORE::push @$self, $nodelist->get_nodelist; -} - -sub shift { - my $self = CORE::shift; - CORE::shift @$self; -} - -sub unshift { - my $self = CORE::shift; - CORE::unshift @$self, @_; -} - -sub prepend { - my $self = CORE::shift; - my ($nodelist) = @_; - CORE::unshift @$self, $nodelist->get_nodelist; -} - -sub size { - my $self = CORE::shift; - scalar @$self; -} - -sub get_node { - # uses array index starting at 1, not 0 - # this is mainly because of XPath. - my $self = CORE::shift; - my ($pos) = @_; - $self->[$pos - 1]; -} - -*item = \&get_node; - -sub get_nodelist { - my $self = CORE::shift; - @$self; -} - -sub to_boolean { - my $self = CORE::shift; - return (@$self > 0) ? XML::LibXML::Boolean->True : XML::LibXML::Boolean->False; -} - -# string-value of a nodelist is the string-value of the first node -sub string_value { - my $self = CORE::shift; - return '' unless @$self; - return $self->[0]->string_value; -} - -sub to_literal { - my $self = CORE::shift; - return XML::LibXML::Literal->new( - join('', grep {defined $_} map { $_->string_value } @$self) - ); -} - -sub to_number { - my $self = CORE::shift; - return XML::LibXML::Number->new( - $self->to_literal - ); -} - -sub iterator { - warn "this function is obsolete!\nIt was disabled in version 1.54\n"; - return undef; -} - -1; -__END__ - -=head1 NAME - -XML::LibXML::NodeList - a list of XML document nodes - -=head1 DESCRIPTION - -An XML::LibXML::NodeList object contains an ordered list of nodes, as -detailed by the W3C DOM documentation of Node Lists. - -=head1 SYNOPSIS - - my $results = $dom->findnodes('//somepath'); - foreach my $context ($results->get_nodelist) { - my $newresults = $context->findnodes('./other/element'); - ... - } - -=head1 API - -=head2 new() - -You will almost never have to create a new NodeSet object, as it is all -done for you by XPath. - -=head2 get_nodelist() - -Returns a list of nodes, the contents of the node list, as a perl list. - -=head2 string_value() - -Returns the string-value of the first node in the list. -See the XPath specification for what "string-value" means. - -=head2 to_literal() - -Returns the concatenation of all the string-values of all -the nodes in the list. - -=head2 get_node($pos) - -Returns the node at $pos. The node position in XPath is based at 1, not 0. - -=head2 size() - -Returns the number of nodes in the NodeSet. - -=head2 pop() - -Equivalent to perl's pop function. - -=head2 push(@nodes) - -Equivalent to perl's push function. - -=head2 append($nodelist) - -Given a nodelist, appends the list of nodes in $nodelist to the end of the -current list. - -=head2 shift() - -Equivalent to perl's shift function. - -=head2 unshift(@nodes) - -Equivalent to perl's unshift function. - -=head2 prepend($nodeset) - -Given a nodelist, prepends the list of nodes in $nodelist to the front of -the current list. - -=head2 iterator() - -Will return a new nodelist iterator for the current nodelist. A -nodelist iterator is usefull if more complex nodelist processing is -needed. - -=cut |