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}}); }