Mercurial > pub > Impl
diff Lib/IMPL/DOM/Node.pm @ 275:6253872024a4
*refactoring IMPL::Class
| author | cin | 
|---|---|
| date | Thu, 31 Jan 2013 02:18:31 +0400 | 
| parents | a8db61d0ed33 | 
| children | 4ddb27ff4a0b | 
line wrap: on
 line diff
--- a/Lib/IMPL/DOM/Node.pm Wed Jan 30 03:30:28 2013 +0400 +++ b/Lib/IMPL/DOM/Node.pm Thu Jan 31 02:18:31 2013 +0400 @@ -388,7 +388,7 @@ sub listProperties { my ($this) = @_; - my %props = map {$_->Name, 1} $this->get_meta(typeof IMPL::Class::PropertyInfo, sub { $_->Attributes->{domProperty}},1); + my %props = map {$_->name, 1} $this->GetMeta(typeof IMPL::Class::PropertyInfo, sub { $_->attributes->{domProperty}},1); return (keys %props,keys %{$this->{$_propertyMap}}); }
