home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / NodeList.pm < prev    next >
Encoding:
Perl POD Document  |  2001-07-13  |  741 b   |  47 lines
  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
  47.