comparison Lib/IMPL/DOM/Navigator/SchemaNavigator.pm @ 236:2904da230022

DOM refactoring
author sergey
date Mon, 15 Oct 2012 04:23:01 +0400
parents 6d8092d8ce1b
children 2746a8e5a6c4
comparison
equal deleted inserted replaced
235:a4d9126edcbb 236:2904da230022
20 sub CTOR { 20 sub CTOR {
21 my ($this,$schema) = @_; 21 my ($this,$schema) = @_;
22 22
23 $this->{$Schema} = $schema; 23 $this->{$Schema} = $schema;
24 24
25 die new IMPL::InvalidArgumentException("A schema object is required") unless $schema->isa('IMPL::DOM::Schema'); 25 die new IMPL::InvalidArgumentException("A schema object is required") unless $schema->isa('IMPL::DOM::Schema') || $schema->isa('IMPL::DOM::Schema::ComplexNode');
26 } 26 }
27 27
28 my $schemaAnyNode = IMPL::DOM::Schema::ComplexType->new(type => '::AnyNodeType', nativeType => 'IMPL::DOM::ComplexNode')->appendRange( 28 my $schemaAnyNode = IMPL::DOM::Schema::ComplexType->new(type => '::AnyNodeType', nativeType => 'IMPL::DOM::ComplexNode')->appendRange(
29 IMPL::DOM::Schema::NodeSet->new()->appendRange( 29 IMPL::DOM::Schema::NodeSet->new()->appendRange(
30 IMPL::DOM::Schema::AnyNode->new() 30 IMPL::DOM::Schema::AnyNode->new()