summaryrefslogtreecommitdiff
path: root/Build/tools/XML/DOM/NodeList.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Build/tools/XML/DOM/NodeList.pm')
-rw-r--r--Build/tools/XML/DOM/NodeList.pm46
1 files changed, 46 insertions, 0 deletions
diff --git a/Build/tools/XML/DOM/NodeList.pm b/Build/tools/XML/DOM/NodeList.pm
new file mode 100644
index 00000000000..81aad84881c
--- /dev/null
+++ b/Build/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