|
49
|
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} = 'SimpleType';
|
|
|
17 $args{minOccur} = 0;
|
|
|
18 $args{maxOccur} = 'unbounded';
|
|
|
19 $args{name} ||= 'SimpleType';
|
|
|
20 %args
|
|
|
21 }
|
|
|
22 );
|
|
|
23
|
|
|
24 sub CTOR {
|
|
|
25 my ($this,%args) = @_;
|
|
|
26
|
|
|
27 $this->{$nativeType} = $args{nativeType};
|
|
|
28 }
|
|
|
29
|
|
|
30
|
|
|
31 1;
|
