Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Transform/ObjectToDOM.pm @ 329:50ff1595bd62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed bug when transforming list properties
author sergey
date Mon, 03 Jun 2013 18:03:54 +0400
parents c9c2ec29793f
children f116cd9fe7d9
comparison
equal deleted inserted replaced
328:63709a4e6da0 329:50ff1595bd62
138 if ( ref $data and eval { $data->can('GetMeta') } ) { 138 if ( ref $data and eval { $data->can('GetMeta') } ) {
139 my %props = map { 139 my %props = map {
140 $_->name, 1 140 $_->name, 1
141 } $data->GetMeta(PropertyInfo, sub { $_->access == ACCESS_PUBLIC }, 1 ); 141 } $data->GetMeta(PropertyInfo, sub { $_->access == ACCESS_PUBLIC }, 1 );
142 142
143
143 my %values = map { 144 my %values = map {
144 $_, 145 $_,
145 $data->$_(); 146 scalar($data->$_())
146 } keys %props; 147 } keys %props;
147 148
148 return $this->Transform(\%values); 149 return $this->Transform(\%values);
149 } else { 150 } else {
150 die OperationException->new("Don't know how to transform $data"); 151 die OperationException->new("Don't know how to transform $data");