|
236
|
1 package IMPL::DOM::Transform::ObjectToDOM;
|
|
|
2 use strict;
|
|
|
3
|
|
|
4 use IMPL::Const qw(:prop :access);
|
|
|
5 use IMPL::declare {
|
|
|
6 require => {
|
|
|
7 PropertyInfo => 'IMPL::Class::PropertyInfo',
|
|
|
8 Builder => 'IMPL::DOM::Navigator::Builder',
|
|
|
9 Exception => 'IMPL::Exception',
|
|
|
10 ArgumentException => '-IMPL::InvalidArgumentException',
|
|
|
11 OperationException => '-IMPL::InvalidOperationException'
|
|
|
12 },
|
|
|
13 base => [
|
|
|
14 'IMPL::Transform' => sub {
|
|
250
|
15 -plain => 'TransformPlain',
|
|
|
16 HASH => 'TransformHash',
|
|
|
17 -default => 'TransformDefault'
|
|
236
|
18 }
|
|
|
19 ],
|
|
|
20 props => [
|
|
|
21 documentSchema => PROP_RO,
|
|
|
22 _schema => PROP_RW,
|
|
|
23 _navi => PROP_RW
|
|
|
24 ]
|
|
|
25 };
|
|
|
26
|
|
246
|
27 use constant {
|
|
250
|
28 SchemaNode => 'IMPL::DOM::Schema::Node',
|
|
|
29 ComplexNode => 'IMPL::DOM::Schema::ComplexNode'
|
|
246
|
30 };
|
|
|
31
|
|
236
|
32 sub CTOR {
|
|
237
|
33 my ($this,$docName,$docSchema,$transforms) = @_;
|
|
236
|
34
|
|
246
|
35 my $docNodeSchema = $docSchema->selectSingleNode(sub { $_->isa(SchemaNode) and $_->name eq $docName } )
|
|
236
|
36 or die OperationException->new("Can't find a node schema for the document '$docName'");
|
|
|
37
|
|
|
38 my $docClass = ($docNodeSchema->can('nativeType') ? $docNodeSchema->nativeType : undef) || 'IMPL::DOM::Document';
|
|
|
39
|
|
|
40 $this->documentSchema($docNodeSchema);
|
|
|
41
|
|
|
42 $this->_navi(
|
|
|
43 Builder->new(
|
|
|
44 $docClass,
|
|
|
45 $docSchema,
|
|
|
46 ignoreUndefined => 1
|
|
|
47 )
|
|
|
48 );
|
|
|
49 $this->_schema($docSchema);
|
|
|
50
|
|
|
51 $this->_navi->NavigateCreate($docName);
|
|
|
52 }
|
|
|
53
|
|
|
54 sub TransformPlain {
|
|
|
55 my ($this,$data) = @_;
|
|
|
56
|
|
250
|
57 $this->_navi->Current->nodeValue( $data );
|
|
236
|
58 return $this->_navi->Current;
|
|
|
59 }
|
|
|
60
|
|
250
|
61 sub currentNode {
|
|
|
62 shift->_navi->Current;
|
|
|
63 }
|
|
|
64
|
|
|
65 sub inflateNodeValue {
|
|
|
66 shift->_navi->inflateValue(shift);
|
|
|
67 }
|
|
|
68
|
|
236
|
69 sub TransformHash {
|
|
|
70 my ($this,$data) = @_;
|
|
|
71
|
|
|
72 die ArgumentException->new(data => 'A HASH reference is required')
|
|
|
73 unless ref $data eq 'HASH';
|
|
250
|
74
|
|
|
75 return $this->StoreObject($this->currentNode,$data)
|
|
|
76 if !$this->currentNode->schema->isa(ComplexNode);
|
|
236
|
77
|
|
|
78 KEYLOOP: foreach my $key (keys %$data) {
|
|
|
79 my $value = $data->{$key};
|
|
|
80
|
|
|
81 if (ref $value eq 'ARRAY') {
|
|
|
82 foreach my $subval (@$value) {
|
|
|
83
|
|
250
|
84 $this->_navi->saveState();
|
|
|
85
|
|
236
|
86 my $node = $this->_navi->NavigateCreate($key);
|
|
|
87
|
|
|
88 unless(defined $node) {
|
|
250
|
89 #$this->_navi->Back();
|
|
|
90 $this->_navi->restoreState();
|
|
236
|
91 next KEYLOOP;
|
|
|
92 }
|
|
|
93
|
|
250
|
94 $this->_navi->applyState();
|
|
|
95
|
|
236
|
96 $this->Transform($subval);
|
|
|
97
|
|
|
98 $this->_navi->Back();
|
|
|
99 }
|
|
|
100 } else {
|
|
250
|
101 $this->_navi->saveState();
|
|
236
|
102 my $node = $this->_navi->NavigateCreate($key);
|
|
250
|
103
|
|
236
|
104 unless(defined $node) {
|
|
250
|
105 #$this->_navi->Back();
|
|
|
106 $this->_navi->restoreState();
|
|
236
|
107 next KEYLOOP;
|
|
|
108 }
|
|
|
109
|
|
250
|
110 $this->_navi->applyState();
|
|
|
111
|
|
|
112 warn "$key = $value";
|
|
|
113
|
|
236
|
114 $this->Transform($value);
|
|
|
115
|
|
|
116 $this->_navi->Back();
|
|
|
117 }
|
|
|
118 }
|
|
|
119 return $this->_navi->Current;
|
|
|
120 }
|
|
|
121
|
|
250
|
122 # this method handles situatuions when a complex object must be stored in a
|
|
|
123 # simple node.
|
|
|
124 sub StoreObject {
|
|
|
125 my ($this,$node,$data) = @_;
|
|
|
126
|
|
|
127 $node->nodeValue($data);
|
|
|
128
|
|
|
129 warn "Stored value for", $node->nodeName;
|
|
|
130
|
|
|
131 return $node;
|
|
|
132 }
|
|
|
133
|
|
236
|
134 sub TransformDefault {
|
|
|
135 my ($this,$data) = @_;
|
|
|
136
|
|
250
|
137 return $this->StoreObject($this->currentNode,$data)
|
|
|
138 if !$this->currentNode->schema->isa(ComplexNode);
|
|
|
139
|
|
236
|
140 if ( ref $data and eval { $data->can('GetMeta') } ) {
|
|
|
141 my %props = map {
|
|
|
142 $_->name, 1
|
|
|
143 } $data->GetMeta(PropertyInfo, sub { $_->access == ACCESS_PUBLIC }, 1 );
|
|
|
144
|
|
|
145 my %values = map {
|
|
|
146 $_,
|
|
|
147 $data->$_();
|
|
|
148 } keys %props;
|
|
|
149
|
|
|
150 return $this->Transform(\%values);
|
|
|
151 } else {
|
|
|
152 die OperationException->new("Don't know how to transform $data");
|
|
|
153 }
|
|
|
154
|
|
|
155 return $this->_navi->Current;
|
|
|
156 }
|
|
|
157
|
|
|
158 sub buildErrors {
|
|
|
159 my ($this) = @_;
|
|
|
160
|
|
|
161 return $this->_navi->buildErrors;
|
|
|
162 }
|
|
|
163
|
|
|
164 1;
|
|
|
165
|
|
|
166 __END__
|
|
|
167
|
|
|
168 =pod
|
|
|
169
|
|
|
170 =head1 NAME
|
|
|
171
|
|
|
172 C<IMPL::DOM::Transform::ObjectToDOM> -преобразование объекта
|
|
|
173
|
|
|
174 =head1 SYNOPSIS
|
|
|
175
|
|
|
176 =cut |
