1 ######################################################################

     2 package XML::DOM::NodeList;

     3 ######################################################################

     4 

     5 use vars qw ( $EMPTY );

     6 

     7 # Empty NodeList

     8 $EMPTY = new XML::DOM::NodeList;

     9 

    10 sub new 

    11 {

    12     bless [], $_[0];

    13 }

    14 

    15 sub item 

    16 {

    17     $_[0]->[$_[1]];

    18 }

    19 

    20 sub getLength 

    21 {

    22     int (@{$_[0]});

    23 }

    24 

    25 #------------------------------------------------------------

    26 # Extra method implementations

    27 

    28 sub dispose

    29 {

    30     my $self = shift;

    31     for my $kid (@{$self})

    32     {

    33 	$kid->dispose;

    34     }

    35 }

    36 

    37 sub setOwnerDocument

    38 {

    39     my ($self, $doc) = @_;

    40     for my $kid (@{$self})

    41     { 

    42 	$kid->setOwnerDocument ($doc);

    43     }

    44 }

    45 

    46 1; # package return code