Mercurial > pub > Impl
view Lib/IMPL/DOM/Navigator/SimpleBuilder.pm @ 298:78f767765706
TT view refactoring
author | cin |
---|---|
date | Tue, 19 Mar 2013 02:02:37 +0400 |
parents | 4ddb27ff4a0b |
children |
line wrap: on
line source
package IMPL::DOM::Navigator::SimpleBuilder; use strict; use warnings; use parent qw(IMPL::DOM::Navigator); use IMPL::Class::Property; require IMPL::DOM::Navigator::SchemaNavigator; use IMPL::DOM::Document; BEGIN { public _direct property Document => prop_get | owner_set; } our %CTOR = ( 'IMPL::DOM::Navigator' => sub { IMPL::DOM::Document::Empty; } ); sub NavigateCreate { my ($this,$nodeName,%props) = @_; my $node; if (! $this->{$Document}) { $node = $this->{$Document} = IMPL::DOM::Document->new(nodeName => $nodeName,%props); $this->_initNavigator($node); } else { die new IMPL::InvalidOperationException('Can create a second top level element') unless $this->Current; $node = $this->{$Document}->Create($nodeName,'IMPL::DOM::Node',\%props); $this->Current->appendChild($node); $this->internalNavigateNodeSet($node); } return $node; } sub inflateValue { $_[1]; } 1;