1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#!/usr/bin/perl
package MyComplexType;
use strict;
use Class::Std::Fast::Storable constructor => 'none';
use lib '../../lib';
use base ('SOAP::WSDL::XSD::Typelib::ComplexType');
Class::Std::initialize();
my %MyTestName_of :ATTR(:get<MyTestName>);
__PACKAGE__->_factory(
[ qw(MyTestName) ], # order
{ MyTestName => \%MyTestName_of }, # attribute lookup map
{ MyTestName => 'SOAP::WSDL::XSD::Typelib::Builtin::string' } # class name lookup map
);
sub get_xmlns { 'urn:Test' };
1;
|
