package MyTypes::Person; use strict; use warnings; use Class::Std::Fast::Storable constructor => 'none'; use base qw(SOAP::WSDL::XSD::Typelib::ComplexType); Class::Std::initialize(); { # BLOCK to scope variables my %PersonID_of :ATTR(:get); my %Salutation_of :ATTR(:get); my %Name_of :ATTR(:get); my %GivenName_of :ATTR(:get); my %DateOfBirth_of :ATTR(:get); my %HomeAddress_of :ATTR(:get); my %WorkAddress_of :ATTR(:get); my %Contracts_of :ATTR(:get); __PACKAGE__->_factory( [ qw( PersonID Salutation Name GivenName DateOfBirth HomeAddress WorkAddress Contracts ) ], { PersonID => \%PersonID_of, Salutation => \%Salutation_of, Name => \%Name_of, GivenName => \%GivenName_of, DateOfBirth => \%DateOfBirth_of, HomeAddress => \%HomeAddress_of, WorkAddress => \%WorkAddress_of, Contracts => \%Contracts_of, }, { PersonID => 'MyTypes::PersonID', Salutation => 'SOAP::WSDL::XSD::Typelib::Builtin::string', Name => 'SOAP::WSDL::XSD::Typelib::Builtin::string', GivenName => 'SOAP::WSDL::XSD::Typelib::Builtin::string', DateOfBirth => 'SOAP::WSDL::XSD::Typelib::Builtin::date', HomeAddress => 'MyTypes::Address', WorkAddress => 'MyTypes::Address', Contracts => 'MyTypes::ArrayOfContract', } ); } # end BLOCK 1; =pod =head1 NAME MyTypes::Person =head1 DESCRIPTION Perl data type class for the XML Schema defined complextype Person from the namespace http://www.example.org/benchmark/. =head2 PROPERTIES The following properties may be accessed using get_PROPERTY / set_PROPERTY methods: PersonID Salutation Name GivenName DateOfBirth HomeAddress WorkAddress Contracts =head1 METHODS =head2 new Constructor. The following data structure may be passed to new(): { # MyTypes::Person PersonID => { # MyTypes::PersonID ID => $some_value, # int }, Salutation => $some_value, # string Name => $some_value, # string GivenName => $some_value, # string DateOfBirth => $some_value, # date HomeAddress => { # MyTypes::Address Street => $some_value, # string ZIP => $some_value, # string City => $some_value, # string Country => $some_value, # string PhoneNumber => $some_value, # PhoneNumber MobilePhoneNumber => $some_value, # PhoneNumber }, WorkAddress => { # MyTypes::Address Street => $some_value, # string ZIP => $some_value, # string City => $some_value, # string Country => $some_value, # string PhoneNumber => $some_value, # PhoneNumber MobilePhoneNumber => $some_value, # PhoneNumber }, Contracts => { # MyTypes::ArrayOfContract Contract => { # MyTypes::Contract ContractID => $some_value, # long ContractName => $some_value, # string }, }, }, =head1 AUTHOR Generated by SOAP::WSDL =cut