Mercurial > pub > Impl
comparison Lib/IMPL/DOM/Schema/SimpleType.pm @ 19:1ca530e5c9c5
DOM схема, требует переработки в части схемы для описания схем. Автоверификация не проходит
author | Sergey |
---|---|
date | Fri, 11 Sep 2009 16:30:39 +0400 |
parents | |
children | 267460284fb3 |
comparison
equal
deleted
inserted
replaced
18:818c74b038ae | 19:1ca530e5c9c5 |
---|---|
1 package IMPL::DOM::Schema::SimpleType; | |
2 use strict; | |
3 use warnings; | |
4 | |
5 use base qw(IMPL::DOM::Schema::SimpleNode); | |
6 use IMPL::Class::Property; | |
7 use IMPL::Class::Property::Direct; | |
8 | |
9 BEGIN { | |
10 public _direct property nativeType => prop_get; | |
11 } | |
12 | |
13 our %CTOR = ( | |
14 'IMPL::DOM::Schema::SimpleNode' => sub { | |
15 my %args = @_; | |
16 $args{nodeName} = 'ComplexNode'; | |
17 $args{minOccur} = 0; | |
18 $args{maxOccur} = 'unbounded'; | |
19 %args | |
20 } | |
21 ); | |
22 | |
23 sub CTOR { | |
24 my ($this,%args) = @_; | |
25 | |
26 $this->{$nativeType} = $args{nativeType}; | |
27 } | |
28 | |
29 | |
30 1; |