comparison Lib/IMPL/DOM/Transform/PostToDOM.pm @ 79:2d1c3f713280

ORM concept in development
author wizard
date Mon, 05 Apr 2010 00:20:34 +0400
parents 16ada169ca75
children 83e356614c1e
comparison
equal deleted inserted replaced
78:a5cb84374d40 79:2d1c3f713280
23 my ($this,$data) = @_; 23 my ($this,$data) = @_;
24 24
25 my $navi = $this->Navigator; 25 my $navi = $this->Navigator;
26 26
27 while (my ($key,$value) = each %$data) { 27 while (my ($key,$value) = each %$data) {
28 # TODO: review
28 my $node = $navi->Navigate($key); 29 my $node = $navi->Navigate($key);
29 $node->nodeValue($value); 30 $node->nodeValue($value);
30 } 31 }
31 32
32 return $navi->Document; 33 return $navi->Document;