1package MyElements::ListPerson; 2use strict; 3use warnings; 4 5{ # BLOCK to scope variables 6 7sub get_xmlns { 'http://www.example.org/benchmark/' } 8 9__PACKAGE__->__set_name('ListPerson'); 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 %in_of :ATTR(:get<in>); 27 28__PACKAGE__->_factory( 29 [ qw( 30 in 31 ) ], 32 { 33 in => \%in_of, 34 }, 35 { 36 in => 'MyTypes::Person', 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::ListPerson 58 59=head1 DESCRIPTION 60 61Perl data type class for the XML Schema defined element 62ListPerson from the namespace http://www.example.org/benchmark/. 63 64=head1 METHODS 65 66=head2 new 67 68 my $element = MyElements::ListPerson->new($data); 69 70Constructor. The following data structure may be passed to new(): 71 72 { 73 in => { # MyTypes::Person 74 PersonID => { # MyTypes::PersonID 75 ID => $some_value, # int 76 }, 77 Salutation => $some_value, # string 78 Name => $some_value, # string 79 GivenName => $some_value, # string 80 DateOfBirth => $some_value, # date 81 HomeAddress => { # MyTypes::Address 82 Street => $some_value, # string 83 ZIP => $some_value, # string 84 City => $some_value, # string 85 Country => $some_value, # string 86 PhoneNumber => $some_value, # PhoneNumber 87 MobilePhoneNumber => $some_value, # PhoneNumber 88 }, 89 WorkAddress => { # MyTypes::Address 90 Street => $some_value, # string 91 ZIP => $some_value, # string 92 City => $some_value, # string 93 Country => $some_value, # string 94 PhoneNumber => $some_value, # PhoneNumber 95 MobilePhoneNumber => $some_value, # PhoneNumber 96 }, 97 Contracts => { # MyTypes::ArrayOfContract 98 Contract => { # MyTypes::Contract 99 ContractID => $some_value, # long 100 ContractName => $some_value, # string 101 }, 102 }, 103 }, 104 }, 105 106=head1 AUTHOR 107 108Generated by SOAP::WSDL 109 110=cut 111 112