Martin Kutter
25548e6296
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_06 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_06.tar.gz
90 lines
1.9 KiB
Perl
90 lines
1.9 KiB
Perl
#!/usr/bin/perl
|
|
package MyElement;
|
|
use strict;
|
|
use Class::Std::Storable;
|
|
use SOAP::WSDL::XSD::Typelib::Element;
|
|
use SOAP::WSDL::XSD::Typelib::Builtin;
|
|
use base (
|
|
'SOAP::WSDL::XSD::Typelib::Element',
|
|
'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
|
);
|
|
|
|
__PACKAGE__->__set_name('MyElementName');
|
|
sub get_xmlns { 'urn:Test' };
|
|
|
|
package MyComplexTypeElement;
|
|
use strict;
|
|
use Class::Std::Storable;
|
|
use SOAP::WSDL::XSD::Typelib::Element;
|
|
use MyComplexType;
|
|
use base (
|
|
'SOAP::WSDL::XSD::Typelib::Element',
|
|
'MyComplexType',
|
|
);
|
|
|
|
__PACKAGE__->__set_name('MyComplexTypeElement');
|
|
sub get_xmlns { 'urn:Test' };
|
|
|
|
package MyTestElement;
|
|
use strict;
|
|
use Class::Std::Storable;
|
|
use SOAP::WSDL::XSD::Typelib::Element;
|
|
use SOAP::WSDL::XSD::Typelib::Builtin::string;
|
|
use base (
|
|
'SOAP::WSDL::XSD::Typelib::Element',
|
|
'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
|
);
|
|
|
|
__PACKAGE__->__set_name('MyTestElement');
|
|
|
|
sub get_xmlns { 'urn:Test' };
|
|
|
|
package MyTestElement2;
|
|
use strict;
|
|
use Class::Std::Storable;
|
|
use SOAP::WSDL::XSD::Typelib::Element;
|
|
use SOAP::WSDL::XSD::Typelib::Builtin;
|
|
use base (
|
|
'SOAP::WSDL::XSD::Typelib::Element',
|
|
'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
|
);
|
|
|
|
__PACKAGE__->__set_name('MyTestElement2');
|
|
|
|
sub get_xmlns { 'urn:Test' };
|
|
|
|
|
|
package MyAtomicComplexTypeElement;
|
|
|
|
use strict;
|
|
use Class::Std::Storable;
|
|
use SOAP::WSDL::XSD::Typelib::Element;
|
|
use SOAP::WSDL::XSD::Typelib::ComplexType;
|
|
use SOAP::WSDL::XSD::Typelib::Builtin;
|
|
use base (
|
|
'SOAP::WSDL::XSD::Typelib::Element',
|
|
'SOAP::WSDL::XSD::Typelib::ComplexType',
|
|
);
|
|
|
|
my %test_of :ATTR(:get<test>);
|
|
my %test2_of :ATTR(:get<test2>);
|
|
|
|
sub get_xmlns { 'urn:Test' };
|
|
|
|
__PACKAGE__->_factory(
|
|
[ qw(test test2) ],
|
|
{
|
|
test => \%test_of,
|
|
test2 => \%test2_of,
|
|
},
|
|
{
|
|
# this is the <element ref="" variant....
|
|
test => 'MyTestElement',
|
|
test2 => 'MyTestElement2',
|
|
},
|
|
);
|
|
|
|
__PACKAGE__->__set_name('MyAtomicComplexTypeElement');
|
|
|
|
1;
|