Mercurial > pub > Impl
diff Lib/IMPL/DOM/Navigator/Builder.pm @ 250:129e48bb5afb
DOM refactoring
ObjectToDOM methods are virtual
QueryToDOM uses inflators
Fixed transform for the complex values in the ObjectToDOM
QueryToDOM doesn't allow to use complex values (HASHes) as values for nodes (overpost problem)
author | sergey |
---|---|
date | Wed, 07 Nov 2012 04:17:53 +0400 |
parents | 2746a8e5a6c4 |
children | 4ddb27ff4a0b |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Navigator/Builder.pm Tue Nov 06 20:00:57 2012 +0400 +++ b/Lib/IMPL/DOM/Navigator/Builder.pm Wed Nov 07 04:17:53 2012 +0400 @@ -41,6 +41,7 @@ my $schemaSource = $this->{$_schemaNavi}->SourceSchemaNode; my @errors = $this->inflateProperties($schemaNode,\%props); + $props{schema} = $schemaNode; $props{schemaSource} = $schemaSource; @@ -49,7 +50,7 @@ $node = $this->{$Document} = $this->{$_docClass}->new(nodeName => $nodeName,%props); $this->_initNavigator($node); } else { - die new IMPL::InvalidOperationException('Can create a second top level element') unless $this->Current; + die new IMPL::InvalidOperationException('Can\'t create a second top level element') unless $this->Current; $node = $this->{$Document}->Create($nodeName,$class,\%props); $this->Current->appendChild($node); $this->internalNavigateNodeSet($node); @@ -93,8 +94,9 @@ } sub inflateValue { - my ($this,$value,$node) = @_; + my ($this,$value,$node,$strict) = @_; + $strict ||= 0; $node ||= $this->Current; my $nodeSchema = $this->{$_schemaNavi}->Current; @@ -108,7 +110,7 @@ message => $nodeSchema->messageInflateError, source => $this->{$_schemaNavi}->SourceSchemaNode )); - return $value; + return $strict ? undef : $value ; } else { return $result; } @@ -140,6 +142,10 @@ goto &BuildErrors; } +sub document { + goto &Document; +} + 1; __END__ @@ -168,32 +174,53 @@ Построитель DOM документов по указанной схеме. Обычно используется в связке с объектами для чтения такими как C<IMPL::DOM::XMLReader>. -=head1 METHODS +=head1 MEMBERS -=over - -=item C< CTOR($classDocument,$schema) > +=head2 C< CTOR($classDocument,$schema, %opts) > Создает новый объект, принимает на вход класс документа (или фабрику, например L<IMPL::Object::Factory>) и схему. В процессе процедуры построения документа будет создан объект документа. -=item C< NavigateCreate($nodeName,\%props) > +Необязательные именованные параметры + +=over + +=item C<ignoreUndefined> + +C<NavigateCreate> не будет вызывать исключение, если запрашиваемый узел не +найден в схеме, но будет возвращать C<undef>. + +=back + +=head2 C< NavigateCreate($nodeName,%props) > Создает новый узел с указанным именем и переходит в него. В случае если в схеме -подходящий узел не найден, то вызывается исключение. +подходящий узел не найден, то вызывается исключение или будет возвращено +C<undef> см. C<ignoreUndefined>. При этом по имени узла ищется его схема, после чего определяется класс для -создания экземпляра и созданный узел доавляется в документ. При создании +создания экземпляра узла и созданный узел доавляется в документ. При создании нового узла используется метод документа C<< IMPL::DOM::Document->Create >> -Свойства узла передаются при создании через параметр C<%props>, но имя создаваемого -узла НЕ может быть переопределено свойством C<nodeName>, оно будет проигнорировано. +Свойства узла передаются при создании через параметр C<%props>, но имя +создаваемого узла НЕ может быть переопределено свойством C<nodeName>, оно будет +проигнорировано. -=item C< Document > +Свойства узла будут преобразованы при помощи заданных в схеме заполнителей +C<inflator>. + +=head2 C<[get]document > Свойство, которое содержит документ по окончании процедуры построения. -=back +=head2 C<[get]buildErrors> + +Ошибки, возникшие в процессе построения документа. + +=head2 C<[get]ignoreUndefined> + +Опция, заданная при создании построителя, отвечающая за обработку узлов +не найденных в схеме. =cut