The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% USE XSD %]
# list derivation
use base qw(
    SOAP::WSDL::XSD::Typelib::Builtin::list
[%
IF (name = simpleType.get_itemType);
    type = definitions.get_types.0.find_type(simpleType.expand( name )); -%]
    [% XSD.create_xsd_name(type) %]
);
[% ELSIF (type = simpleType.first_simpleType); %]
);

[% INCLUDE simpleType/atomicType.tt(type = type);
ELSE; PERL %]die $stash->{simpleType}._DUMP [% END;
    THROW UNKNOWN , "No list itemTape and no atomic simpleType - don't know what to do";
END %]