import SOAP-WSDL 2.00_07 from CPAN

git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_07
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_07.tar.gz

lib/SOAP/WSDL/XSD/Typelib/Builtin.pm

@@ -172,6 +172,130 @@ decimal, float and double (and derived classes) return their value in
 numeric context.
 
 =back
+
+=head1 Subclasses
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::anyType
+
+Base class for all types
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType
+
+Base class for all simple types
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::anyURI
+
+Type representing URIs
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::boolean
+
+Represents boolean data.
+
+Serializes to "true" or "false".
+
+Everything true in perl and not "false" is deserialized as true.
+
+Returns true/false in boolean context.
+
+Returns 1 / 0 in numeric context.
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::byte 
+
+byte integer objects. 
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::date
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::dateTime
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::decimal
+
+decimal is the base of all non-float numbers
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::double 
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::duration
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::ENTITY
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::float
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::gDay
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::gMonth
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::gYear
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::hexBinary
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::ID
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::IDREF
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::IDREFS
+
+Derived by SOAP::WSDL::XSD::Typelib::Builtin::list.
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::int
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::integer
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::language
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::list
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::long
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::Name
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::NCName
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::normalizedString
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::NOTATION
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::QName
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::short
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::string
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::time
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::token
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong
+
+=head2 SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort
+
+=head1 CAVEATS
+
+=over
+
+=item * set_value
+
+In contrast to Class::Std-generated mutators (setters), set_value does 
+not return the last value.
+
+This is for speed reasons: SOAP::WSDL never needs to know the last value 
+when calling set_calue, but calls it over and over again...
+
+=back
 
 =head1 BUGS AND LIMITATIONS
 

lib/SOAP/WSDL/XSD/Typelib/Builtin/ENTITY.pm

@@ -1,27 +1,25 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::ENTITY;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::NCName);
-1;
 
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::ENTITY - ENTITY objects
-
-=head1 LICENSE
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::NCName);
 
-Copyright 2004-2007 Martin Kutter.
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+};
 
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut
+1;

lib/SOAP/WSDL/XSD/Typelib/Builtin/ID.pm

@@ -5,22 +5,3 @@ use Class::Std::Storable;
 use base qw(SOAP::WSDL::XSD::Typelib::Builtin::NCName);
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::ID - ID objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREF.pm

@@ -5,22 +5,3 @@ use Class::Std::Storable;
 use base qw(SOAP::WSDL::XSD::Typelib::Builtin::ID);
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::IDREF - IDREF objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/IDREFS.pm

@@ -7,26 +7,3 @@ use base qw(
     SOAP::WSDL::XSD::Typelib::Builtin::IDREF);
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::IDREFS - IDREFS objects
-
-=head1 DESCRIPTION
-
-IDREFS is a list datatype implemented by list derivation from IDREF.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/NCName.pm

@@ -1,26 +1,25 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::NCName;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::Name);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::Name);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::NCName - NCName objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKEN.pm

@@ -1,26 +1,26 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::token);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::token);
 
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
+
 1;
 
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN - NMTOKEN objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/NMTOKENS.pm

@@ -1,33 +1,26 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(
-    SOAP::WSDL::XSD::Typelib::Builtin::list
-    SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::list
+      SOAP::WSDL::XSD::Typelib::Builtin::NMTOKEN);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
+
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::NMTOKENS - NMTOKENS objects
-
-=head1 DESCRIPTION
-
-List of NMTOKEN objects.
-
-Implemented by derivation via SOAP::WSDL::XSD::Typelib::Builtin::list.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/NOTATION.pm

@@ -1,8 +1,6 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::NOTATION;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
 my %length_of           :ATTR(:name<length> :default<()>);
 my %minLength_of        :ATTR(:name<minLength> :default<()>);
@@ -10,36 +8,26 @@ my %maxLength_of        :ATTR(:name<maxLength> :default<()>);
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
 my %whiteSpace_of       :ATTR(:name<whiteSpace> :default<()>);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
 
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 
+
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::NOTATION - NOTATION object
-
-=head1 DESCRIPTION
-
-NOTATION represents the NOTATION attribute type from 
-XML 1.0 (Second Edition)
-
-=head1 BUGS AND LIMITATIONS
-
-Facets are implemented but don't have any influence yet.
-
-No constraints are implemented yet.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/Name.pm

@@ -1,26 +1,25 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::Name;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::token);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::token);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+};
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::Name - Name objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/QName.pm

@@ -1,8 +1,27 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::QName;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+}
 
 my %length_of           :ATTR(:name<length> :default<()>);
 my %minLength_of        :ATTR(:name<minLength> :default<()>);
@@ -13,33 +32,3 @@ my %whiteSpace_of       :ATTR(:name<whiteSpace> :default<()>);
 
 1;
 
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::QName - qualified Name object
-
-=head1 DESCRIPTION
-
-QName represents XML qualified names. The �value space� of QName 
-is the set of tuples {namespace name, local part}, where namespace 
-name is an anyURI and local part is an NCName. 
-
-=head1 BUGS AND LIMITATIONS
-
-Facets are implemented but don't have any influence yet.
-
-No constraints are implemented yet.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/anySimpleType.pm

@@ -33,38 +33,3 @@ Class::Std::initialize();   # make :BOOLIFY overloading serializable
 
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType - All builtin and all simpleType types inherit from anySimpleType
-
-=head1 CAVEATS
-
-=over
-
-=item * set_value
-
-In contrast to Class::Std-generated mutators (setters), set_value does 
-not return the last value.
-
-This is for speed reasons: SOAP::WSDL never needs to know the last value 
-when calling set_calue, but calls it over and over again...
-
-=back
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/anyType.pm

@@ -27,23 +27,3 @@ Class::Std::initialize();           # make :STRINGIFY overloading serializable
 
 1;
 
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::anyType - Base of all XSD Types
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/anyURI.pm

@@ -1,8 +1,26 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::anyURI;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 
 my %length_of           :ATTR(:name<length> :default<()>);
 my %minLength_of        :ATTR(:name<minLength> :default<()>);
@@ -13,36 +31,3 @@ my %whiteSpace_of       :ATTR(:name<whiteSpace> :default<()>);
 
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::anyURI - URI object
-
-=head1 DESCRIPTION
-
-anyURI represents a Uniform Resource Identifier Reference (URI). 
-An anyURI value can be absolute or relative, and may have an optional 
-fragment identifier (i.e., it may be a URI Reference).
-
-=head1 BUGS AND LIMITATIONS
-
-Facets are implemented but don't have any influence yet.
-
-No constraints are implemented yet.
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/base64Binary.pm

@@ -1,8 +1,28 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::base64Binary;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+}
 
 my %length_of           :ATTR(:name<length> :default<()>);
 my %minLength_of        :ATTR(:name<minLength> :default<()>);
@@ -13,23 +33,3 @@ my %whiteSpace_of       :ATTR(:name<whiteSpace> :default<()>);
 
 1;
 
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::base64Binary - base64 encoded binary objects
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/boolean.pm

@@ -2,17 +2,16 @@ package SOAP::WSDL::XSD::Typelib::Builtin::boolean;
 use strict;
 use warnings;
 
+my %pattern_of          :ATTR(:name<pattern> :default<()>);
+my %whiteSpace_of       :ATTR(:name<whiteSpace> :default<()>);
+my %value_of            :ATTR(:get<value> :init_attr<value> :default<()>);
+
+
 # Speed up. Class::Std::new is slow - and we don't need it's functionality...
 BEGIN {
     use Class::Std::Storable;
     use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
-}
 
-my %pattern_of          :ATTR(:name<pattern> :default<()>);
-my %whiteSpace_of       :ATTR(:name<whiteSpace> :default<()>);
-my %value_of            :ATTR(:get<value> :init_attr<value> :default<()>);
-
-{
     no warnings qw(redefine);
     no strict qw(refs);
 
@@ -26,7 +25,6 @@ my %value_of            :ATTR(:get<value> :init_attr<value> :default<()>);
         }
         return $self;
     };
-
 }
 
 
@@ -59,34 +57,3 @@ sub set_value {
 Class::Std::initialize();   # make :BOOLIFY overloading serializable
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::boolean - boolean objects
-
-=head1 DESCRIPTION
-
-Serializes to "true" or "false".
-
-Everything true in perl and not "false" is deserialized as true.
-
-Returns true/false in boolean context.
-
-Returns 1 / 0 in numeric context.
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/byte.pm

@@ -1,33 +1,26 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::byte;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::short);
 
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::short);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+}
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::byte - byte integer objects
-
-=head1 DESCRIPTION
-
-Subclass of short.
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/date.pm

@@ -1,8 +1,6 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::date;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
@@ -12,25 +10,26 @@ my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
 
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+}
+
 1;
 
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::date - date objects
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/dateTime.pm

@@ -12,26 +12,26 @@ my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
 
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+}
+
+
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::dateTime - dateTime objects
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut
-

lib/SOAP/WSDL/XSD/Typelib/Builtin/decimal.pm

@@ -1,8 +1,6 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::decimal;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
 my %totalDigits_of      :ATTR(:name<totalDigits> :default<()>);
 my %fractionDigits_of   :ATTR(:name<fractionDigits> :default<()>);
@@ -13,6 +11,27 @@ my %maxInclusive_of     :ATTR(:name<maxInclusive> :default<()>);
 my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+}
 
 sub as_num :NUMERIFY :BOOLIFY {
     return $_[0]->get_value();
@@ -21,24 +40,3 @@ sub as_num :NUMERIFY :BOOLIFY {
 Class::Std::initialize();   # make :NUMERIFY :BOOLIFY overloading serializable
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::decimal - decimal object, base of all non-float numbers
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/double.pm

@@ -1,9 +1,27 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::double;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
+
 sub as_num :NUMERIFY {
     return $_[0]->get_value();
 }
@@ -11,46 +29,3 @@ sub as_num :NUMERIFY {
 Class::Std::initialize();   # make :NUMERIFY overloading serializable
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::double - double precision float objects
-
-=head1 DESCRIPTION
-
-The double datatype corresponds to IEEE double-precision 64-bit floating point type. 
-The basic �value space� of double consists of the values m � 2^e, where m is an 
-integer whose absolute value is less than 2^53, and e is an integer between 
--1075 and 970, inclusive. 
-
-In addition to the basic �value space� described above, the �value space� of double 
-also contains the following special values: positive and negative zero, positive and 
-negative infinity and not-a-number. The �order-relation� on double is: 
-
- x < y iff y - x is positive. 
- 
-Positive zero is greater than negative zero. 
-
-Not-a-number equals itself and is greater than all double values including 
-positive infinity.
-
-=head1 BUGS AND LIMITATIONS
-
-None of the "special" behaviours and values are implemented yet.
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/duration.pm

@@ -1,8 +1,26 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::duration;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+};
 
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
@@ -12,25 +30,5 @@ my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
 
+
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::duration - duration objects
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/float.pm

@@ -1,8 +1,6 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::float;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
@@ -12,6 +10,26 @@ my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
 
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+};
 
 sub as_num :NUMERIFY {
     return $_[0]->get_value();
@@ -21,23 +39,3 @@ Class::Std::initialize();   # make :NUMERIFY overloading serializable
 
 1;
 
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::float - float objects
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/gDay.pm

@@ -1,8 +1,6 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::gDay;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
@@ -12,25 +10,25 @@ my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
 
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::gDay - day objects
-
-=head1 LICENSE
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
-Copyright 2004-2007 Martin Kutter.
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+};
 
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut
+1;

lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonth.pm

@@ -1,8 +1,6 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::gMonth;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
@@ -12,25 +10,25 @@ my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
 
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::gMonth - month objects
-
-=head1 LICENSE
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
-Copyright 2004-2007 Martin Kutter.
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+};
 
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut
+1;

lib/SOAP/WSDL/XSD/Typelib/Builtin/gMonthDay.pm

@@ -1,8 +1,6 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
@@ -12,25 +10,25 @@ my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
 
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::gMonthDay - month day objects
-
-=head1 LICENSE
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
-Copyright 2004-2007 Martin Kutter.
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+};
 
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut
+1;

lib/SOAP/WSDL/XSD/Typelib/Builtin/gYear.pm

@@ -1,8 +1,6 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::gYear;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
@@ -12,25 +10,25 @@ my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
 
-1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::gYear - year objects
-
-=head1 LICENSE
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
-Copyright 2004-2007 Martin Kutter.
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+};
 
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut
+1;

lib/SOAP/WSDL/XSD/Typelib/Builtin/gYearMonth.pm

@@ -1,8 +1,6 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
@@ -12,23 +10,24 @@ my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
 
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+};
+
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::gYearMonth - year and month objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/hexBinary.pm

@@ -1,8 +1,26 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::hexBinary;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+};
 
 my %length_of           :ATTR(:name<length> :default<()>);
 my %minLength_of        :ATTR(:name<minLength> :default<()>);
@@ -12,22 +30,3 @@ my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
 my %whiteSpace_of       :ATTR(:name<whiteSpace> :default<()>);
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::hexBinary - hex encoded binary objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/int.pm

@@ -24,26 +24,3 @@ BEGIN {
 };
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::int - int objects
-
-=head1 DESCRIPTION
-
-Subclass of long.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/integer.pm

@@ -31,22 +31,3 @@ sub as_num :NUMERIFY {
 Class::Std::initialize();       # make :NUMERIFY overloading serializable
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::integer - integer objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/language.pm

@@ -1,26 +1,26 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::language;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::token);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::token);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+};
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::language - language objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/long.pm

@@ -20,31 +20,6 @@ BEGIN {
         }
         return $self;
     };
-
 };
 
-
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::long - long integer objects
-
-=head1 DESCRIPTION
-
-Subclass of integer.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/negativeInteger.pm

@@ -1,30 +1,25 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::negativeInteger;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::egativeInteger - negative integer objects
-
-=head1 DESCRIPTION
-
-Subclass of integer.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/nonNegativeInteger.pm

@@ -1,30 +1,25 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::integer);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::integer);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger - non negative integer objects
-
-=head1 DESCRIPTION
-
-Subclass of integer.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/nonPositiveInteger.pm

@@ -1,30 +1,26 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::integer);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::integer);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
+
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::nonPositiveInteger - nonPositiveInteger objects
-
-=head1 DESCRIPTION
-
-Subclass of integer.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/normalizedString.pm

@@ -1,26 +1,26 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::normalizedString;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::string);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::string);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+
+};
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::normalizedString - normalizedString objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/positiveInteger.pm

@@ -1,31 +1,25 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
 
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::positiveInteger - positive integer objects
-
-=head1 DESCRIPTION
-
-Subclass of nonNegativeInteger.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/short.pm

@@ -1,31 +1,25 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::short;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::int);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::int);
 
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::short - short int objects
-
-=head1 DESCRIPTION
-
-Subclass of int.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/string.pm

@@ -38,8 +38,7 @@ my %char2entity = (
     q{>} => q{>},
     q{"} => q{&qout;},
     q{'} => q{'},
-);
-
+);
 
 sub serialize {
     my ($self, $opt) = @_;
@@ -59,27 +58,3 @@ sub serialize {
 }
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::string - string objects
-
-=head1 DESCRIPTION
-
-String objects. XML entities (&, E<lt> E<gt> " ') are encoded on 
-serialization.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/time.pm

@@ -1,8 +1,6 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::time;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
 
 my %pattern_of          :ATTR(:name<pattern> :default<()>);
 my %enumeration_of      :ATTR(:name<enumeration> :default<()>);
@@ -12,23 +10,24 @@ my %maxExclusive_of     :ATTR(:name<maxExclusive> :default<()>);
 my %minInclusive_of     :ATTR(:name<minInclusive> :default<()>);
 my %minExclusive_of     :ATTR(:name<minExclusive> :default<()>);
 
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::anySimpleType);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
+
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::time - time objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/token.pm

@@ -1,26 +1,24 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::token;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::normalizedString);
 
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::normalizedString);
+    
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::token - token objects
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedByte.pm

@@ -1,31 +1,25 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
 
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::unsignedByte - unsigned byte objects
-
-=head1 DESCRIPTION
-
-Subclass of unsignedShort.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedInt.pm

@@ -1,32 +1,25 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt;
 use strict;
-use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong);
+use warnings;
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong);
+
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt - unsigned int objects
-
-=head1 DESCRIPTION
-
-Subclass of unsignedLong.
-
-=head1 LICENSE
-
-Copyright 2004-2007 Martin Kutter.
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedLong.pm

@@ -1,10 +1,26 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::unsignedLong;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger);
 
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::nonNegativeInteger);
 
+    no warnings qw(redefine);
+    no strict qw(refs);
+
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 1;
 
 __END__

lib/SOAP/WSDL/XSD/Typelib/Builtin/unsignedShort.pm

@@ -1,31 +1,25 @@
 package SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort;
 use strict;
 use warnings;
-use Class::Std::Storable;
-use base qw(SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt);
+
+# Speed up. Class::Std::new is slow - and we don't need it's functionality...
+BEGIN {
+    use Class::Std::Storable;
+    use base qw(SOAP::WSDL::XSD::Typelib::Builtin::unsignedInt);
+    
+    no warnings qw(redefine);
+    no strict qw(refs);
 
+    # Yes, I know it's ugly - but this is the fastest constructor to write 
+    # for Class::Std-Style inside out objects..
+    *{ __PACKAGE__ . '::new' } = sub {   
+        my $self = bless \do { my $foo } , shift;
+        if (@_) {
+            $self->set_value( $_[0]->{ value } )
+                if exists $_[0]->{ value }
+        }
+        return $self;
+    };
+}
 
 1;
-
-__END__
-
-=pod
-
-=head1 NAME
-
-SOAP::WSDL::XSD::Typelib::Builtin::unsignedShort - unsigned short integer objects
-
-=head1 DESCRIPTION
-
-Subclass of unsignedInt.
-
-=head1 LICENSE
-
-This file is part of SOAP-WSDL. You may distribute/modify it under 
-the same terms as perl itself
-
-=head1 AUTHOR
-
-Martin Kutter E<lt>martin.kutter fen-net.deE<gt>
-
-=cut

lib/SOAP/WSDL/XSD/Typelib/ComplexType.pm

@@ -117,8 +117,9 @@ sub _factory {
         # complextypes, as well as for <restriction><all> or
         # <restriction><sequence>.
         # But what about choice, group, extension ?
-        #
-        *{ "$class\::_serialize" } = sub {
+        #
+    }
+    *{ "$class\::_serialize" } = sub {
             my $ident = ident $_[0];
             # my $class = ref $_[0];
 
@@ -154,7 +155,7 @@ sub _factory {
             } (@{ $ELEMENTS_FROM{ $class } });
         };
 
-        *{ "$class\::serialize" } = sub {
+    *{ "$class\::serialize" } = sub {
             my ($self, $opt) = @_;
             $opt ||= {};
         
@@ -163,9 +164,8 @@ sub _factory {
                 if not defined $ELEMENTS_FROM{ $class } or not @{ $ELEMENTS_FROM{ $class } };
             return join q{}, $self->start_tag($opt),
                     $self->_serialize(), $self->end_tag();
-        }
-
-    }
+    }
+    
 }
 
 1;