Mercurial > pub > Impl
diff Lib/IMPL/DOM/Schema/ComplexType.pm @ 19:1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
author | Sergey |
---|---|
date | Fri, 11 Sep 2009 16:30:39 +0400 |
parents | |
children | 267460284fb3 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/Lib/IMPL/DOM/Schema/ComplexType.pm Fri Sep 11 16:30:39 2009 +0400 @@ -0,0 +1,30 @@ +package IMPL::DOM::Schema::ComplexType; +use strict; +use warnings; + +use base qw(IMPL::DOM::Schema::ComplexNode); +use IMPL::Class::Property; +use IMPL::Class::Property::Direct; + +BEGIN { + public _direct property nativeType => prop_get; +} + +our %CTOR = ( + 'IMPL::DOM::Schema::ComplexNode' => sub { + my %args = @_; + $args{nodeName} = 'ComplexNode'; + $args{minOccur} = 0; + $args{maxOccur} = 'unbounded'; + %args + } +); + +sub CTOR { + my ($this,%args) = @_; + + $this->{$nativeType} = $args{nativeType}; +} + + +1;