Mercurial > pub > Impl
view Lib/IMPL/DOM/Navigator/SimpleBuilder.pm @ 78:a5cb84374d40
TT::Control in work
author | wizard |
---|---|
date | Fri, 02 Apr 2010 20:19:17 +0400 |
parents | 16ada169ca75 |
children | c289ed9662ca |
line wrap: on
line source
package IMPL::DOM::Navigator::SimpleBuilder; use strict; use warnings; use base qw(IMPL::DOM::Navigator); use IMPL::Class::Property; use IMPL::Class::Property::Direct; 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\t 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; } 1;