Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/ComplexType.pm @ 19:1ca530e5c9c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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::ComplexType;
2 use strict;
3 use warnings;
4
5 use base qw(IMPL::DOM::Schema::ComplexNode);
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::ComplexNode' => 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;