—package
Example::Types::test2;
use
strict;
use
warnings;
__PACKAGE__->_set_element_form_qualified(1);
sub
get_xmlns {
'urn:HelloWorld'
};
our
$XML_ATTRIBUTE_CLASS
;
undef
$XML_ATTRIBUTE_CLASS
;
sub
__get_attr_class {
return
$XML_ATTRIBUTE_CLASS
;
}
Class::Std::initialize();
{
# BLOCK to scope variables
my
%name_of
:ATTR(:get<name>);
my
%givenName_of
:ATTR(:get<givenName>);
__PACKAGE__->_factory(
[
qw( name
givenName
)
],
{
'name'
=> \
%name_of
,
'givenName'
=> \
%givenName_of
,
},
{
'name'
=>
'SOAP::WSDL::XSD::Typelib::Builtin::string'
,
'givenName'
=>
'SOAP::WSDL::XSD::Typelib::Builtin::string'
,
},
{
'name'
=>
'name'
,
'givenName'
=>
'givenName'
,
}
);
}
# end BLOCK
1;
=pod
=head1 NAME
Example::Types::test2
=head1 DESCRIPTION
Perl data type class for the XML Schema defined complexType
test2 from the namespace urn:HelloWorld.
=head2 PROPERTIES
The following properties may be accessed using get_PROPERTY / set_PROPERTY
methods:
=over
=item * name
=item * givenName
=back
=head1 METHODS
=head2 new
Constructor. The following data structure may be passed to new():
{ # Example::Types::test2
name => $some_value, # string
givenName => $some_value, # string
},
=head1 AUTHOR
Generated by SOAP::WSDL
=cut