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