The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

[% FOREACH type IN atomic_types; %]
[%# TODO generate name create_name method %]
package [% XSD.create_subpackage_name(type); %];
use strict;
use warnings;
{
[% IF ( type.value.isa('SOAP::WSDL::XSD::ComplexType') );
    INCLUDE complexType/contentModel.tt(complexType = type.value );
ELSIF ( type.value.isa('SOAP::WSDL::XSD::SimpleType') );
    INCLUDE simpleType/contentModel.tt(simpleType = type.value );
ELSE;
    PERL; %] die $stash->{ type } [% END;
    THROW UNKNOWN, "neither complex nor simple type - don't know what to do";
END
 %]
}

[% END %]