comparison Lib/IMPL/DOM/Schema/SimpleType.pm @ 20:267460284fb3

DOM Schema
author Sergey
date Tue, 22 Sep 2009 17:17:38 +0400
parents 1ca530e5c9c5
children 16ada169ca75
comparison
equal deleted inserted replaced
19:1ca530e5c9c5 20:267460284fb3
11 } 11 }
12 12
13 our %CTOR = ( 13 our %CTOR = (
14 'IMPL::DOM::Schema::SimpleNode' => sub { 14 'IMPL::DOM::Schema::SimpleNode' => sub {
15 my %args = @_; 15 my %args = @_;
16 $args{nodeName} = 'ComplexNode'; 16 $args{nodeName} = 'SimpleType';
17 $args{minOccur} = 0; 17 $args{minOccur} = 0;
18 $args{maxOccur} = 'unbounded'; 18 $args{maxOccur} = 'unbounded';
19 $args{name} ||= 'SimpleType';
19 %args 20 %args
20 } 21 }
21 ); 22 );
22 23
23 sub CTOR { 24 sub CTOR {