comparison Lib/IMPL/DOM/Schema/ComplexType.pm @ 124:e30bdd040fe3

IMPL::Web::TT::Form concept
author wizard
date Thu, 10 Jun 2010 02:45:59 +0400
parents a6e9759ff88a
children a4b0a819bbda
comparison
equal deleted inserted replaced
123:1d7e370a91fa 124:e30bdd040fe3
16 my %args = @_; 16 my %args = @_;
17 $args{nodeName} ||= 'ComplexType'; 17 $args{nodeName} ||= 'ComplexType';
18 $args{minOccur} = 0; 18 $args{minOccur} = 0;
19 $args{maxOccur} = 'unbounded'; 19 $args{maxOccur} = 'unbounded';
20 $args{name} ||= 'ComplexType'; 20 $args{name} ||= 'ComplexType';
21 delete @args{qw(nativeType messageWrongType)};
21 %args 22 %args
22 } 23 }
23 ); 24 );
24 25
25 sub CTOR { 26 sub CTOR {