comparison Lib/IMPL/DOM/Transform/ObjectToDOM.pm @ 391:2287c72f303a

code cleanup
author cin
date Thu, 13 Feb 2014 20:17:22 +0400
parents 4cc6cc370fb2
children
comparison
equal deleted inserted replaced
390:de1f875e8875 391:2287c72f303a
126 126
127 sub TransformDefault { 127 sub TransformDefault {
128 my ($this,$data) = @_; 128 my ($this,$data) = @_;
129 129
130 return $this->StoreObject($this->currentNode,$data) 130 return $this->StoreObject($this->currentNode,$data)
131 if !$this->currentNode->schema->isa(ComplexNode); 131 if !$this->currentNode->schemaType->isa(ComplexNode);
132 132
133 if ( ref $data and eval { $data->can('GetMeta') } ) { 133 if ( ref $data and eval { $data->can('GetMeta') } ) {
134 my %props = map { 134 my %props = map {
135 $_->name, 1 135 $_->name, 1
136 } $data->GetMeta(PropertyInfo, sub { $_->access == ACCESS_PUBLIC }, 1 ); 136 } $data->GetMeta(PropertyInfo, sub { $_->access == ACCESS_PUBLIC }, 1 );