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