The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MyTypemaps::GlobalWeather;
use strict;
use warnings;

our $typemap_1 = {
               'GetWeatherResponse/GetWeatherResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
               'GetWeather' => 'MyElements::GetWeather',
               'GetCitiesByCountryResponse/GetCitiesByCountryResult' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
               'Fault/faultactor' => 'SOAP::WSDL::XSD::Typelib::Builtin::TOKEN',
               'GetWeatherResponse' => 'MyElements::GetWeatherResponse',
               'Fault/detail' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
               'Fault/faultcode' => 'SOAP::WSDL::XSD::Typelib::Builtin::anyURI',
               'GetWeather/CityName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
               'GetCitiesByCountry' => 'MyElements::GetCitiesByCountry',
               'Fault/faultstring' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
               'GetCitiesByCountry/CountryName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
               'GetWeather/CountryName' => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
               'Fault' => 'SOAP::WSDL::SOAP::Typelib::Fault11',
               'GetCitiesByCountryResponse' => 'MyElements::GetCitiesByCountryResponse'
             };
;

sub get_class { 
  my $name = join '/', @{ $_[1] };
  exists $typemap_1->{ $name } or die "Cannot resolve $name via " . __PACKAGE__;
  return $typemap_1->{ $name };
}

1;

__END__

=pod

=head1 NAME

MyTypemaps::GlobalWeather; - typemap for ::GlobalWeather;

=head1 DESCRIPTION

Typemap created by SOAP::WSDL for map-based SOAP message parsers.

=cut