Mercurial > pub > Impl
view Lib/IMPL/DOM/Schema/ComplexType.pm @ 83:74bae30eb25e
(no commit message)
author | wizard |
---|---|
date | Tue, 13 Apr 2010 20:27:56 +0400 |
parents | 16ada169ca75 |
children | cf3b6ef2be22 |
line wrap: on
line source
package IMPL::DOM::Schema::ComplexType; use strict; use warnings; use base qw(IMPL::DOM::Schema::ComplexNode); use IMPL::Class::Property; use IMPL::Class::Property::Direct; BEGIN { public _direct property nativeType => prop_get; } our %CTOR = ( 'IMPL::DOM::Schema::ComplexNode' => sub { my %args = @_; $args{nodeName} ||= 'ComplexType'; $args{minOccur} = 0; $args{maxOccur} = 'unbounded'; $args{name} ||= 'ComplexType'; %args } ); sub CTOR { my ($this,%args) = @_; $this->{$nativeType} = $args{nativeType}; } 1;