Mercurial > pub > Impl
comparison Lib/IMPL/DOM/Transform/ObjectToDOM.pm @ 348:f116cd9fe7d9
working on TTView: pre-alpha version
author | cin |
---|---|
date | Thu, 03 Oct 2013 19:48:57 +0400 |
parents | 50ff1595bd62 |
children | 4cc6cc370fb2 |
comparison
equal
deleted
inserted
replaced
347:3eafa6fefa9f | 348:f116cd9fe7d9 |
---|---|
78 | 78 |
79 KEYLOOP: foreach my $key (keys %$data) { | 79 KEYLOOP: foreach my $key (keys %$data) { |
80 my $value = $data->{$key}; | 80 my $value = $data->{$key}; |
81 | 81 |
82 if (ref $value eq 'ARRAY') { | 82 if (ref $value eq 'ARRAY') { |
83 #TODO: collapse empty values only if needed | |
84 foreach my $subval (grep $_, @$value) { | 83 foreach my $subval (grep $_, @$value) { |
85 | 84 |
86 $this->_navi->saveState(); | 85 $this->_navi->saveState(); |
87 | 86 |
88 my $node = $this->_navi->NavigateCreate($key); | 87 my $node = $this->_navi->NavigateCreate($key); |