?
Current Path : /usr/share/perl5/vendor_perl/XML/DOM/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
Current File : //usr/share/perl5/vendor_perl/XML/DOM/NodeList.pm |
###################################################################### package XML::DOM::NodeList; ###################################################################### use vars qw ( $EMPTY ); # Empty NodeList $EMPTY = new XML::DOM::NodeList; sub new { bless [], $_[0]; } sub item { $_[0]->[$_[1]]; } sub getLength { int (@{$_[0]}); } #------------------------------------------------------------ # Extra method implementations sub dispose { my $self = shift; for my $kid (@{$self}) { $kid->dispose; } } sub setOwnerDocument { my ($self, $doc) = @_; for my $kid (@{$self}) { $kid->setOwnerDocument ($doc); } } 1; # package return code