1package MyElements::GetWeatherResponse; 2use strict; 3use warnings; 4 5{ # BLOCK to scope variables 6 7sub get_xmlns { 'http://www.webserviceX.NET' } 8 9__PACKAGE__->__set_name('GetWeatherResponse'); 10__PACKAGE__->__set_nillable(); 11__PACKAGE__->__set_minOccurs(); 12__PACKAGE__->__set_maxOccurs(); 13__PACKAGE__->__set_ref(); 14 15use base qw( 16 SOAP::WSDL::XSD::Typelib::Element 17 SOAP::WSDL::XSD::Typelib::ComplexType 18); 19use Class::Std::Fast::Storable constructor => 'none'; 20use base qw(SOAP::WSDL::XSD::Typelib::ComplexType); 21 22Class::Std::initialize(); 23 24{ # BLOCK to scope variables 25 26my %GetWeatherResult_of :ATTR(:get<GetWeatherResult>); 27 28__PACKAGE__->_factory( 29 [ qw( 30 GetWeatherResult 31 ) ], 32 { 33 GetWeatherResult => \%GetWeatherResult_of, 34 }, 35 { 36 GetWeatherResult => 'SOAP::WSDL::XSD::Typelib::Builtin::string', 37 } 38); 39 40} # end BLOCK 41 42 43 44 45 46 47 48} # end of BLOCK 491; 50 51# __END__ 52 53=pod 54 55=head1 NAME 56 57MyElements::GetWeatherResponse 58 59=head1 DESCRIPTION 60 61Perl data type class for the XML Schema defined element 62GetWeatherResponse from the namespace http://www.webserviceX.NET. 63 64=head1 METHODS 65 66=head2 new 67 68 my $element = MyElements::GetWeatherResponse->new($data); 69 70Constructor. The following data structure may be passed to new(): 71 72 { 73 GetWeatherResult => $some_value, # string 74 }, 75 76=head1 AUTHOR 77 78Generated by SOAP::WSDL 79 80=cut 81 82