|
7
|
1 package IMPL::DOM::Post2DOM;
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5 use IMPL::DOM::Navigator;
|
|
|
6 use IMPL::Class::Property;
|
|
|
7
|
|
|
8 use base qw(IMPL::Transform);
|
|
|
9
|
|
|
10 BEGIN {
|
|
|
11 public property Navigator => prop_get | owner_set;
|
|
|
12 }
|
|
|
13
|
|
|
14 our %CTOR = (
|
|
|
15 'IMPL::Transform' => sub {
|
|
|
16 return (
|
|
|
17 HASH => \&TransfromPostData
|
|
|
18 );
|
|
|
19 }
|
|
|
20 );
|
|
|
21
|
|
|
22 sub TransformPostData {
|
|
|
23 my ($this,$data) = @_;
|
|
|
24
|
|
|
25 my $navi = $this->Navigator;
|
|
|
26
|
|
|
27 while (my ($key,$value) = each %$data) {
|
|
|
28 my $node = $navi->Navigate($key);
|
|
|
29 $node->nodeValue($value);
|
|
|
30 }
|
|
|
31
|
|
|
32 return $navi->Document;
|
|
|
33 }
|
|
|
34
|
|
|
35
|
|
|
36 1;
|
