|
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);
|
|
263
|
52 $this->currentNode->nodeProperty(schemaDocument => $docSchema);
|
|
236
|
53 }
|
|
|
54
|
|
|
55 sub TransformPlain {
|
|
|
56 my ($this,$data) = @_;
|
|
|
57
|
|
250
|
58 $this->_navi->Current->nodeValue( $data );
|
|
236
|
59 return $this->_navi->Current;
|
|
|
60 }
|
|
|
61
|
|
250
|
62 sub currentNode {
|
|
|
63 shift->_navi->Current;
|
|
|
64 }
|
|
|
65
|
|
|
66 sub inflateNodeValue {
|
|
|
67 shift->_navi->inflateValue(shift);
|
|
|
68 }
|
|
|
69
|
|
236
|
70 sub TransformHash {
|
|
|
71 my ($this,$data) = @_;
|
|
|
72
|
|
|
73 die ArgumentException->new(data => 'A HASH reference is required')
|
|
|
74 unless ref $data eq 'HASH';
|
|
250
|
75
|
|
|
76 return $this->StoreObject($this->currentNode,$data)
|
|
|
77 if !$this->currentNode->schema->isa(ComplexNode);
|
|
236
|
78
|
|
|
79 KEYLOOP: foreach my $key (keys %$data) {
|
|
|
80 my $value = $data->{$key};
|
|
|
81
|
|
|
82 if (ref $value eq 'ARRAY') {
|
|
257
|
83 #TODO: collapse empty values only if needed
|
|
|
84 foreach my $subval (grep $_, @$value) {
|
|
236
|
85
|
|
250
|
86 $this->_navi->saveState();
|
|
|
87
|
|
236
|
88 my $node = $this->_navi->NavigateCreate($key);
|
|
|
89
|
|
|
90 unless(defined $node) {
|
|
250
|
91 #$this->_navi->Back();
|
|
|
92 $this->_navi->restoreState();
|
|
236
|
93 next KEYLOOP;
|
|
|
94 }
|
|
|
95
|
|
250
|
96 $this->_navi->applyState();
|
|
|
97
|
|
236
|
98 $this->Transform($subval);
|
|
|
99
|
|
|
100 $this->_navi->Back();
|
|
|
101 }
|
|
|
102 } else {
|
|
250
|
103 $this->_navi->saveState();
|
|
236
|
104 my $node = $this->_navi->NavigateCreate($key);
|
|
250
|
105
|
|
236
|
106 unless(defined $node) {
|
|
250
|
107 #$this->_navi->Back();
|
|
|
108 $this->_navi->restoreState();
|
|
236
|
109 next KEYLOOP;
|
|
|
110 }
|
|
|
111
|
|
250
|
112 $this->_navi->applyState();
|
|
|
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 return $node;
|
|
|
130 }
|
|
|
131
|
|
236
|
132 sub TransformDefault {
|
|
|
133 my ($this,$data) = @_;
|
|
|
134
|
|
250
|
135 return $this->StoreObject($this->currentNode,$data)
|
|
|
136 if !$this->currentNode->schema->isa(ComplexNode);
|
|
|
137
|
|
236
|
138 if ( ref $data and eval { $data->can('GetMeta') } ) {
|
|
|
139 my %props = map {
|
|
|
140 $_->name, 1
|
|
|
141 } $data->GetMeta(PropertyInfo, sub { $_->access == ACCESS_PUBLIC }, 1 );
|
|
|
142
|
|
|
143 my %values = map {
|
|
|
144 $_,
|
|
|
145 $data->$_();
|
|
|
146 } keys %props;
|
|
|
147
|
|
|
148 return $this->Transform(\%values);
|
|
|
149 } else {
|
|
|
150 die OperationException->new("Don't know how to transform $data");
|
|
|
151 }
|
|
|
152
|
|
|
153 return $this->_navi->Current;
|
|
|
154 }
|
|
|
155
|
|
|
156 sub buildErrors {
|
|
|
157 my ($this) = @_;
|
|
|
158
|
|
|
159 return $this->_navi->buildErrors;
|
|
|
160 }
|
|
|
161
|
|
|
162 1;
|
|
|
163
|
|
|
164 __END__
|
|
|
165
|
|
|
166 =pod
|
|
|
167
|
|
|
168 =head1 NAME
|
|
|
169
|
|
263
|
170 C<IMPL::DOM::Transform::ObjectToDOM> -преобразование объекта в DOM документ.
|
|
236
|
171
|
|
|
172 =head1 SYNOPSIS
|
|
|
173
|
|
263
|
174 =begin code
|
|
|
175
|
|
|
176 use IMPL::require {
|
|
|
177 Schema => 'IMPL::DOM::Schema',
|
|
|
178 Config => 'IMPL::Config'
|
|
|
179 }
|
|
|
180
|
|
|
181 my $data = {
|
|
|
182 id => '12313-232',
|
|
|
183 name => 'Peter',
|
|
|
184 age => 20
|
|
|
185 };
|
|
|
186
|
|
|
187 my $schema = Schema->LoadSchema(Config->AppBase('schemas','person.xml'));
|
|
|
188 my $transorm = IMPL::DOM::Transform::ObjectToDOM->new('edit', $schema);
|
|
|
189
|
|
|
190 my $form = $transform->Transform($data);
|
|
|
191
|
|
|
192 my @errors;
|
|
|
193
|
|
|
194 push @errors, $transform->buildErrors;
|
|
|
195 push @errors, $schema->Validate($doc);
|
|
|
196
|
|
|
197 =end code
|
|
|
198
|
|
|
199 =head1 DESCRIPTION
|
|
|
200
|
|
|
201 Наследует C<IMPL::Transform>. Определяет базовые преобразования для хешей и
|
|
|
202 объектов, поддерживающих метаданные.
|
|
|
203
|
|
|
204 Результатом выполнения преобразования является DOM документ. При построении
|
|
|
205 документа используется навигатор C<IMPL::DOM::Navigator::Builder> для
|
|
|
206 сопоставления схемы и свойств преобразуемого объекта. Элементы полученного
|
|
|
207 документа имеют ссылки на соответствующие им элементы схемы.
|
|
|
208
|
|
|
209 После того, как документ построен и преобразование будет очищено, не останется
|
|
|
210 объектов, которые бы ссылались на документ со схемой, поскольку элементы схемы
|
|
|
211 имеют слабые ссылки на саму схему и не могут предотвратить ее удаление.
|
|
|
212 Для предотвращения очитски документа схемы, ссылка на него сохраняется в
|
|
|
213 атрибуте документа C<schemaDocument>, что обеспечит жизнь схемы на протяжении
|
|
|
214 жизни документа.
|
|
|
215
|
|
|
216 Преобразование происходит рекурсивно, сначала используется метод
|
|
|
217 C<NavigateCreate> для создания элемента соответсвующего свойству объекта,
|
|
|
218 затем вызывается метод C<Transform> для преобразования значения свойства, при
|
|
|
219 этом C<currentNode> указывает на только что созданный элемент документа.
|
|
|
220
|
|
|
221 =head1 MEMBERS
|
|
|
222
|
|
|
223 =head2 C<CTOR($docName,$schema)>
|
|
|
224
|
|
|
225 Создает преобразование, при этом будет создан документ состоящий только из
|
|
|
226 корневого элемента с именем C<$docName> и будет найдена подходящий для него
|
|
|
227 элемент схемы C<$schema>.
|
|
|
228
|
|
|
229 =over
|
|
|
230
|
|
|
231 =item * C<$docName>
|
|
|
232
|
|
|
233 Имя корневого узла документа, которое будет использовано для поиска
|
|
|
234 соответствующего элемента схемы C<$schema>
|
|
|
235
|
|
|
236 =item * C<$schema>
|
|
|
237
|
|
|
238 Схема, содержащая описание документа. Если в данной схеме нет описания корневого
|
|
|
239 элемента с именем C<$docName>, будет вызвано исключение.
|
|
|
240
|
|
|
241 =back
|
|
|
242
|
|
|
243 =head2 C<[get]documentSchema>
|
|
|
244
|
|
|
245 Элемент схемы C<ComplexNode> соответствующий документу. Определяется в
|
|
|
246 конструкторе исходя из имени документа.
|
|
|
247
|
|
|
248 =head2 C<[get]currentNode>
|
|
|
249
|
|
|
250 Текущий элемент документа. После создания преобразования - это сам документ.
|
|
|
251 Данное свойство использется внутри преобразования для работы с текущим
|
|
|
252 элементом.
|
|
|
253
|
|
|
254 =head2 C<[virtual]StoreObject($node,$data)>
|
|
|
255
|
|
|
256 Метод, который вызывается преобразованием в случае если текущий узел документа
|
|
|
257 является простым, а значени которое ему соответсвует является объектом (ссылкой).
|
|
|
258
|
|
|
259 По-умолчанию будет выполнено присваивание C<< $node->nodeValue($data) >>, однако
|
|
|
260 это можно заменить, например, на преобразование в строку.
|
|
|
261
|
|
|
262 =head2 C<inflateNodeValue($data)>
|
|
|
263
|
|
|
264 Метод который используется для преобразования значений к правильным типам,
|
|
|
265 используя атрибут C<inflator> элемента схемы. Этот метод можно использовать для
|
|
|
266 C<TransformPlain>, однако по-умолчанию он не используется, поскольку
|
|
|
267 предполагается, что входной объект имеет уже преобразованные значения в своих
|
|
|
268 свойствах.
|
|
|
269
|
|
236
|
270 =cut |
