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