diff options
Diffstat (limited to 'Master/Tools/XML/DOM/NodeList.pm')
-rw-r--r-- | Master/Tools/XML/DOM/NodeList.pm | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/Master/Tools/XML/DOM/NodeList.pm b/Master/Tools/XML/DOM/NodeList.pm new file mode 100644 index 00000000000..81aad84881c --- /dev/null +++ b/Master/Tools/XML/DOM/NodeList.pm @@ -0,0 +1,46 @@ +###################################################################### +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 |