874251225f
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz
112 lines
2.2 KiB
Perl
112 lines
2.2 KiB
Perl
package MyElements::ListPerson;
|
|
use strict;
|
|
use warnings;
|
|
|
|
{ # BLOCK to scope variables
|
|
|
|
sub get_xmlns { 'http://www.example.org/benchmark/' }
|
|
|
|
__PACKAGE__->__set_name('ListPerson');
|
|
__PACKAGE__->__set_nillable();
|
|
__PACKAGE__->__set_minOccurs();
|
|
__PACKAGE__->__set_maxOccurs();
|
|
__PACKAGE__->__set_ref();
|
|
|
|
use base qw(
|
|
SOAP::WSDL::XSD::Typelib::Element
|
|
SOAP::WSDL::XSD::Typelib::ComplexType
|
|
);
|
|
use Class::Std::Fast::Storable constructor => 'none';
|
|
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
|
|
|
Class::Std::initialize();
|
|
|
|
{ # BLOCK to scope variables
|
|
|
|
my %in_of :ATTR(:get<in>);
|
|
|
|
__PACKAGE__->_factory(
|
|
[ qw(
|
|
in
|
|
) ],
|
|
{
|
|
in => \%in_of,
|
|
},
|
|
{
|
|
in => 'MyTypes::Person',
|
|
}
|
|
);
|
|
|
|
} # end BLOCK
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
} # end of BLOCK
|
|
1;
|
|
|
|
# __END__
|
|
|
|
=pod
|
|
|
|
=head1 NAME
|
|
|
|
MyElements::ListPerson
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Perl data type class for the XML Schema defined element
|
|
ListPerson from the namespace http://www.example.org/benchmark/.
|
|
|
|
=head1 METHODS
|
|
|
|
=head2 new
|
|
|
|
my $element = MyElements::ListPerson->new($data);
|
|
|
|
Constructor. The following data structure may be passed to new():
|
|
|
|
{
|
|
in => { # 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
|
|
|