Mercurial > pub > Impl
diff Lib/IMPL/DOM/Schema/SimpleType.pm @ 49:16ada169ca75
migrating to the Eclipse IDE
author | wizard@linux-odin.local |
---|---|
date | Fri, 26 Feb 2010 10:49:21 +0300 |
parents | 267460284fb3 |
children | cf3b6ef2be22 |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Schema/SimpleType.pm Fri Feb 26 01:43:42 2010 +0300 +++ b/Lib/IMPL/DOM/Schema/SimpleType.pm Fri Feb 26 10:49:21 2010 +0300 @@ -1,31 +1,31 @@ -package IMPL::DOM::Schema::SimpleType; -use strict; -use warnings; - -use base qw(IMPL::DOM::Schema::SimpleNode); -use IMPL::Class::Property; -use IMPL::Class::Property::Direct; - -BEGIN { - public _direct property nativeType => prop_get; -} - -our %CTOR = ( - 'IMPL::DOM::Schema::SimpleNode' => sub { - my %args = @_; - $args{nodeName} = 'SimpleType'; - $args{minOccur} = 0; - $args{maxOccur} = 'unbounded'; - $args{name} ||= 'SimpleType'; - %args - } -); - -sub CTOR { - my ($this,%args) = @_; - - $this->{$nativeType} = $args{nativeType}; -} - - -1; +package IMPL::DOM::Schema::SimpleType; +use strict; +use warnings; + +use base qw(IMPL::DOM::Schema::SimpleNode); +use IMPL::Class::Property; +use IMPL::Class::Property::Direct; + +BEGIN { + public _direct property nativeType => prop_get; +} + +our %CTOR = ( + 'IMPL::DOM::Schema::SimpleNode' => sub { + my %args = @_; + $args{nodeName} = 'SimpleType'; + $args{minOccur} = 0; + $args{maxOccur} = 'unbounded'; + $args{name} ||= 'SimpleType'; + %args + } +); + +sub CTOR { + my ($this,%args) = @_; + + $this->{$nativeType} = $args{nativeType}; +} + + +1;