Mercurial > pub > Impl

comparison 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
comparison
equal deleted inserted replaced
101:d8dc6cad3f55 102:cf3b6ef2be22
14 BEGIN { 14 BEGIN {
15 public _direct property nodeName => prop_get; 15 public _direct property nodeName => prop_get;
16 public _direct property document => prop_get; 16 public _direct property document => prop_get;
17 public _direct property isComplex => { get => \&_getIsComplex } ; 17 public _direct property isComplex => { get => \&_getIsComplex } ;
18 public _direct property nodeValue => prop_all; 18 public _direct property nodeValue => prop_all;
19 public _direct property childNodes => { get => \&_getChildNodes }; 19 public _direct property childNodes => { get => \&_getChildNodes }; # prop_list
20 public _direct property parentNode => prop_get ; 20 public _direct property parentNode => prop_get ;
21 private _direct property _propertyMap => prop_all ; 21 private _direct property _propertyMap => prop_all ;
22 } 22 }
23 23
24 sub CTOR { 24 sub CTOR {
84 84
85 sub _getChildNodes { 85 sub _getChildNodes {
86 my ($this) = @_; 86 my ($this) = @_;
87 87
88 $this->{$childNodes} = new IMPL::Object::List() unless $this->{$childNodes}; 88 $this->{$childNodes} = new IMPL::Object::List() unless $this->{$childNodes};
89 return $this->{$childNodes}; 89 return wantarray ? @{ $this->{$childNodes} } : $this->{$childNodes};
90 } 90 }
91 91
92 sub removeNode { 92 sub removeNode {
93 my ($this,$node) = @_; 93 my ($this,$node) = @_;
94 94