[% FOREACH child_element = complexType.get_element -%] =item * [% XSD.perl_var_name(XSD.element_name(child_element)) %]

$element->set_[% XSD.perl_var_name(XSD.element_name(child_element)) %]($data);
$element->get_[% XSD.perl_var_name(XSD.element_name(child_element)) %]();

[% IF (XSD.perl_var_name(XSD.element_name(child_element)) == child_element.get_name); %] [% ELSE %] Note: The name of this property has been altered, because it didn't match perl's notion of variable/subroutine names. The altered name is used in perl code only, XML output uses the original name:

[% child_element.get_name %]

[% END %]

[% END; %] =back [% END; END; -%]

[% head1 %] METHODS

[% head2 %] new

my $element = [% XSD.create_xsd_name(element) %]->new($data);

Constructor. The following data structure may be passed to new():

[% indent = ' '; INCLUDE element/POD/structure.tt; %]

[% head1 %] AUTHOR

Generated by SOAP::WSDL