Mercurial > pub > Impl

diff Lib/IMPL/DOM/Node.pm @ 102:cf3b6ef2be22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Schema beta version
author wizard
date Fri, 07 May 2010 08:05:23 +0400
parents 915df8fcd16f
children 196bf443b5e1
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Node.pm	Thu May 06 17:55:59 2010 +0400
+++ b/Lib/IMPL/DOM/Node.pm	Fri May 07 08:05:23 2010 +0400
@@ -16,7 +16,7 @@
     public _direct property document => prop_get;
     public _direct property isComplex => { get => \&_getIsComplex } ;
     public _direct property nodeValue => prop_all;
-    public _direct property childNodes => { get => \&_getChildNodes };
+    public _direct property childNodes => { get => \&_getChildNodes }; # prop_list
     public _direct property parentNode => prop_get ;
     private _direct property _propertyMap => prop_all ;
 }
@@ -86,7 +86,7 @@
     my ($this) = @_;
     
     $this->{$childNodes} = new IMPL::Object::List() unless $this->{$childNodes};
-    return $this->{$childNodes};
+    return wantarray ? @{ $this->{$childNodes} } : $this->{$childNodes};
 }
 
 sub removeNode {