51db446428
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_32 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_32.tar.gz
93 lines
2.3 KiB
Plaintext
93 lines
2.3 KiB
Plaintext
[% USE XSD(context) %]
|
|
package [% XSD.get_element_prefix(element.get_targetNamespace) %]::[% element.get_name.replace('\.','::') %];
|
|
use strict;
|
|
use warnings;
|
|
|
|
{ # BLOCK to scope variables
|
|
|
|
sub get_xmlns { '[% element.get_targetNamespace %]' }
|
|
|
|
__PACKAGE__->__set_name('[% element.get_name %]');
|
|
__PACKAGE__->__set_nillable([% element.get_nillable %]);
|
|
__PACKAGE__->__set_minOccurs([% element.get_minOccurs %]);
|
|
__PACKAGE__->__set_maxOccurs([% element.get_maxOccurs %]);
|
|
__PACKAGE__->__set_ref([% IF element.get_ref; %]'[% element.get_ref %]'[% END %]);
|
|
|
|
[%- IF (type = element.get_type); -%]
|
|
use base qw(
|
|
SOAP::WSDL::XSD::Typelib::Element
|
|
[% INCLUDE _type_class.tt( type = type, node = element ) %]
|
|
);
|
|
|
|
}
|
|
[%- ELSIF (ref = element.get_ref); -%]
|
|
# element ref="[% ref %]"
|
|
use base qw(
|
|
[% element_prefix %]::[% ref.split(':').1 %]
|
|
);
|
|
|
|
}
|
|
[%- ELSIF (simpleType = element.first_simpleType) %]
|
|
# atomic simpleType: <element><simpleType
|
|
use base qw(
|
|
SOAP::WSDL::XSD::Typelib::Element
|
|
);
|
|
[% INCLUDE simpleType/contentModel.tt -%]
|
|
|
|
}
|
|
|
|
[% ELSIF (complexType = element.first_complexType) %]
|
|
use base qw(
|
|
SOAP::WSDL::XSD::Typelib::Element
|
|
SOAP::WSDL::XSD::Typelib::ComplexType
|
|
);
|
|
[% INCLUDE complexType/contentModel.tt -%]
|
|
|
|
}
|
|
|
|
package [% XSD.get_element_prefix(element.get_targetNamespace) %]::[% element.get_name.replace('\.','::').replace('-','_') %]::_ATTR;
|
|
use base qw(SOAP::WSDL::XSD::Typelib::AttributeSet);
|
|
[% INCLUDE complexType/attributeSet.tt %]
|
|
|
|
[% ELSE %]
|
|
|
|
} # end of BLOCK
|
|
|
|
[% END %]
|
|
|
|
1;
|
|
|
|
[%# work around for CPAN's indexer, which gets disturbed by pod in templates -%]
|
|
[% pod = BLOCK %]=pod[% END -%]
|
|
[% head1 = BLOCK %]=head1[% END -%]
|
|
[% head2 = BLOCK %]=head2[% END -%]
|
|
[% head3 = BLOCK %]=head3[% END -%]
|
|
|
|
[% pod %]
|
|
|
|
[% head1 %] NAME
|
|
|
|
[% XSD.get_element_prefix(element.get_targetNamespace) %]::[% element.get_name %]
|
|
|
|
[% head1 %] DESCRIPTION
|
|
|
|
Perl data type class for the XML Schema defined element
|
|
[% element.get_name %] from the namespace [% element.get_targetNamespace %].
|
|
|
|
[% head1 %] METHODS
|
|
|
|
[% head2 %] new
|
|
|
|
my $element = [% XSD.get_element_prefix(element.get_targetNamespace) %]::[% element.get_name %]->new($data);
|
|
|
|
Constructor. The following data structure may be passed to new():
|
|
|
|
[% indent = ' '; INCLUDE element/POD/structure.tt; %]
|
|
|
|
[% head1 %] AUTHOR
|
|
|
|
Generated by SOAP::WSDL
|
|
|
|
=cut
|
|
|