comparison 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
comparison
equal deleted inserted replaced
274:8d36073411b1 275:6253872024a4
386 } 386 }
387 387
388 sub listProperties { 388 sub listProperties {
389 my ($this) = @_; 389 my ($this) = @_;
390 390
391 my %props = map {$_->Name, 1} $this->get_meta(typeof IMPL::Class::PropertyInfo, sub { $_->Attributes->{domProperty}},1); 391 my %props = map {$_->name, 1} $this->GetMeta(typeof IMPL::Class::PropertyInfo, sub { $_->attributes->{domProperty}},1);
392 392
393 return (keys %props,keys %{$this->{$_propertyMap}}); 393 return (keys %props,keys %{$this->{$_propertyMap}});
394 } 394 }
395 395
396 sub save { 396 sub save {