Mercurial > pub > Impl
view Lib/IMPL/DOM/Transform/PostToDOM.pm @ 41:c442eb67fa22
parser in progress
author | Sergey |
---|---|
date | Mon, 21 Dec 2009 17:40:09 +0300 |
parents | 94d47b388442 |
children | 16ada169ca75 |
line wrap: on
line source
package IMPL::DOM::Post2DOM; use strict; use warnings; use IMPL::DOM::Navigator; use IMPL::Class::Property; use base qw(IMPL::Transform); BEGIN { public property Navigator => prop_get | owner_set; } our %CTOR = ( 'IMPL::Transform' => sub { return ( HASH => \&TransfromPostData ); } ); sub TransformPostData { my ($this,$data) = @_; my $navi = $this->Navigator; while (my ($key,$value) = each %$data) { my $node = $navi->Navigate($key); $node->nodeValue($value); } return $navi->Document; } 1;