import SOAP-WSDL 2.00_29 from CPAN
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00_29 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_29.tar.gz
This commit is contained in:
Martin Kutter
committed by
Michael G. Schwern
Michael G. Schwern
parent
2bad767211
commit
874251225f
@@ -0,0 +1,98 @@
|
||||
package MyTypes::Address;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
Class::Std::initialize();
|
||||
|
||||
{ # BLOCK to scope variables
|
||||
|
||||
my %Street_of :ATTR(:get<Street>);
|
||||
my %ZIP_of :ATTR(:get<ZIP>);
|
||||
my %City_of :ATTR(:get<City>);
|
||||
my %Country_of :ATTR(:get<Country>);
|
||||
my %PhoneNumber_of :ATTR(:get<PhoneNumber>);
|
||||
my %MobilePhoneNumber_of :ATTR(:get<MobilePhoneNumber>);
|
||||
|
||||
__PACKAGE__->_factory(
|
||||
[ qw(
|
||||
Street
|
||||
ZIP
|
||||
City
|
||||
Country
|
||||
PhoneNumber
|
||||
MobilePhoneNumber
|
||||
) ],
|
||||
{
|
||||
Street => \%Street_of,
|
||||
ZIP => \%ZIP_of,
|
||||
City => \%City_of,
|
||||
Country => \%Country_of,
|
||||
PhoneNumber => \%PhoneNumber_of,
|
||||
MobilePhoneNumber => \%MobilePhoneNumber_of,
|
||||
},
|
||||
{
|
||||
Street => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
ZIP => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
City => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
Country => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
PhoneNumber => 'MyTypes::PhoneNumber',
|
||||
MobilePhoneNumber => 'MyTypes::PhoneNumber',
|
||||
}
|
||||
);
|
||||
|
||||
} # end BLOCK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MyTypes::Address
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined complextype
|
||||
Address from the namespace http://www.example.org/benchmark/.
|
||||
|
||||
=head2 PROPERTIES
|
||||
|
||||
The following properties may be accessed using get_PROPERTY / set_PROPERTY
|
||||
methods:
|
||||
|
||||
Street
|
||||
ZIP
|
||||
City
|
||||
Country
|
||||
PhoneNumber
|
||||
MobilePhoneNumber
|
||||
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor. The following data structure may be passed to new():
|
||||
|
||||
{ # MyTypes::Address
|
||||
Street => $some_value, # string
|
||||
ZIP => $some_value, # string
|
||||
City => $some_value, # string
|
||||
Country => $some_value, # string
|
||||
PhoneNumber => $some_value, # PhoneNumber
|
||||
MobilePhoneNumber => $some_value, # PhoneNumber
|
||||
},
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,71 @@
|
||||
package MyTypes::ArrayOfContract;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
Class::Std::initialize();
|
||||
|
||||
{ # BLOCK to scope variables
|
||||
|
||||
my %Contract_of :ATTR(:get<Contract>);
|
||||
|
||||
__PACKAGE__->_factory(
|
||||
[ qw(
|
||||
Contract
|
||||
) ],
|
||||
{
|
||||
Contract => \%Contract_of,
|
||||
},
|
||||
{
|
||||
Contract => 'MyTypes::Contract',
|
||||
}
|
||||
);
|
||||
|
||||
} # end BLOCK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MyTypes::ArrayOfContract
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined complextype
|
||||
ArrayOfContract from the namespace http://www.example.org/benchmark/.
|
||||
|
||||
=head2 PROPERTIES
|
||||
|
||||
The following properties may be accessed using get_PROPERTY / set_PROPERTY
|
||||
methods:
|
||||
|
||||
Contract
|
||||
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor. The following data structure may be passed to new():
|
||||
|
||||
{ # MyTypes::ArrayOfContract
|
||||
Contract => { # MyTypes::Contract
|
||||
ContractID => $some_value, # long
|
||||
ContractName => $some_value, # string
|
||||
},
|
||||
},
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,98 @@
|
||||
package MyTypes::ArrayOfPerson;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
Class::Std::initialize();
|
||||
|
||||
{ # BLOCK to scope variables
|
||||
|
||||
my %NewElement_of :ATTR(:get<NewElement>);
|
||||
|
||||
__PACKAGE__->_factory(
|
||||
[ qw(
|
||||
NewElement
|
||||
) ],
|
||||
{
|
||||
NewElement => \%NewElement_of,
|
||||
},
|
||||
{
|
||||
NewElement => 'MyTypes::Person',
|
||||
}
|
||||
);
|
||||
|
||||
} # end BLOCK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MyTypes::ArrayOfPerson
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined complextype
|
||||
ArrayOfPerson from the namespace http://www.example.org/benchmark/.
|
||||
|
||||
=head2 PROPERTIES
|
||||
|
||||
The following properties may be accessed using get_PROPERTY / set_PROPERTY
|
||||
methods:
|
||||
|
||||
NewElement
|
||||
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor. The following data structure may be passed to new():
|
||||
|
||||
{ # MyTypes::ArrayOfPerson
|
||||
NewElement => { # MyTypes::Person
|
||||
PersonID => { # MyTypes::PersonID
|
||||
ID => $some_value, # int
|
||||
},
|
||||
Salutation => $some_value, # string
|
||||
Name => $some_value, # string
|
||||
GivenName => $some_value, # string
|
||||
DateOfBirth => $some_value, # date
|
||||
HomeAddress => { # MyTypes::Address
|
||||
Street => $some_value, # string
|
||||
ZIP => $some_value, # string
|
||||
City => $some_value, # string
|
||||
Country => $some_value, # string
|
||||
PhoneNumber => $some_value, # PhoneNumber
|
||||
MobilePhoneNumber => $some_value, # PhoneNumber
|
||||
},
|
||||
WorkAddress => { # MyTypes::Address
|
||||
Street => $some_value, # string
|
||||
ZIP => $some_value, # string
|
||||
City => $some_value, # string
|
||||
Country => $some_value, # string
|
||||
PhoneNumber => $some_value, # PhoneNumber
|
||||
MobilePhoneNumber => $some_value, # PhoneNumber
|
||||
},
|
||||
Contracts => { # MyTypes::ArrayOfContract
|
||||
Contract => { # MyTypes::Contract
|
||||
ContractID => $some_value, # long
|
||||
ContractName => $some_value, # string
|
||||
},
|
||||
},
|
||||
},
|
||||
},
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,164 @@
|
||||
package MyTypes::BarCodeData;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
Class::Std::initialize();
|
||||
|
||||
{ # BLOCK to scope variables
|
||||
|
||||
my %Height_of :ATTR(:get<Height>);
|
||||
my %Width_of :ATTR(:get<Width>);
|
||||
my %Angle_of :ATTR(:get<Angle>);
|
||||
my %Ratio_of :ATTR(:get<Ratio>);
|
||||
my %Module_of :ATTR(:get<Module>);
|
||||
my %Left_of :ATTR(:get<Left>);
|
||||
my %Top_of :ATTR(:get<Top>);
|
||||
my %CheckSum_of :ATTR(:get<CheckSum>);
|
||||
my %FontName_of :ATTR(:get<FontName>);
|
||||
my %BarColor_of :ATTR(:get<BarColor>);
|
||||
my %BGColor_of :ATTR(:get<BGColor>);
|
||||
my %FontSize_of :ATTR(:get<FontSize>);
|
||||
my %barcodeOption_of :ATTR(:get<barcodeOption>);
|
||||
my %barcodeType_of :ATTR(:get<barcodeType>);
|
||||
my %checkSumMethod_of :ATTR(:get<checkSumMethod>);
|
||||
my %showTextPosition_of :ATTR(:get<showTextPosition>);
|
||||
my %BarCodeImageFormat_of :ATTR(:get<BarCodeImageFormat>);
|
||||
|
||||
__PACKAGE__->_factory(
|
||||
[ qw(
|
||||
Height
|
||||
Width
|
||||
Angle
|
||||
Ratio
|
||||
Module
|
||||
Left
|
||||
Top
|
||||
CheckSum
|
||||
FontName
|
||||
BarColor
|
||||
BGColor
|
||||
FontSize
|
||||
barcodeOption
|
||||
barcodeType
|
||||
checkSumMethod
|
||||
showTextPosition
|
||||
BarCodeImageFormat
|
||||
) ],
|
||||
{
|
||||
Height => \%Height_of,
|
||||
Width => \%Width_of,
|
||||
Angle => \%Angle_of,
|
||||
Ratio => \%Ratio_of,
|
||||
Module => \%Module_of,
|
||||
Left => \%Left_of,
|
||||
Top => \%Top_of,
|
||||
CheckSum => \%CheckSum_of,
|
||||
FontName => \%FontName_of,
|
||||
BarColor => \%BarColor_of,
|
||||
BGColor => \%BGColor_of,
|
||||
FontSize => \%FontSize_of,
|
||||
barcodeOption => \%barcodeOption_of,
|
||||
barcodeType => \%barcodeType_of,
|
||||
checkSumMethod => \%checkSumMethod_of,
|
||||
showTextPosition => \%showTextPosition_of,
|
||||
BarCodeImageFormat => \%BarCodeImageFormat_of,
|
||||
},
|
||||
{
|
||||
Height => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
|
||||
Width => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
|
||||
Angle => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
|
||||
Ratio => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
|
||||
Module => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
|
||||
Left => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
|
||||
Top => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
|
||||
CheckSum => 'SOAP::WSDL::XSD::Typelib::Builtin::boolean',
|
||||
FontName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
BarColor => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
BGColor => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
FontSize => 'SOAP::WSDL::XSD::Typelib::Builtin::float',
|
||||
barcodeOption => 'MyTypes::BarcodeOption',
|
||||
barcodeType => 'MyTypes::BarcodeType',
|
||||
checkSumMethod => 'MyTypes::CheckSumMethod',
|
||||
showTextPosition => 'MyTypes::ShowTextPosition',
|
||||
BarCodeImageFormat => 'MyTypes::ImageFormats',
|
||||
}
|
||||
);
|
||||
|
||||
} # end BLOCK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MyTypes::BarCodeData
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined complextype
|
||||
BarCodeData from the namespace http://www.webservicex.net/.
|
||||
|
||||
=head2 PROPERTIES
|
||||
|
||||
The following properties may be accessed using get_PROPERTY / set_PROPERTY
|
||||
methods:
|
||||
|
||||
Height
|
||||
Width
|
||||
Angle
|
||||
Ratio
|
||||
Module
|
||||
Left
|
||||
Top
|
||||
CheckSum
|
||||
FontName
|
||||
BarColor
|
||||
BGColor
|
||||
FontSize
|
||||
barcodeOption
|
||||
barcodeType
|
||||
checkSumMethod
|
||||
showTextPosition
|
||||
BarCodeImageFormat
|
||||
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor. The following data structure may be passed to new():
|
||||
|
||||
{ # MyTypes::BarCodeData
|
||||
Height => $some_value, # int
|
||||
Width => $some_value, # int
|
||||
Angle => $some_value, # int
|
||||
Ratio => $some_value, # int
|
||||
Module => $some_value, # int
|
||||
Left => $some_value, # int
|
||||
Top => $some_value, # int
|
||||
CheckSum => $some_value, # boolean
|
||||
FontName => $some_value, # string
|
||||
BarColor => $some_value, # string
|
||||
BGColor => $some_value, # string
|
||||
FontSize => $some_value, # float
|
||||
barcodeOption => $some_value, # BarcodeOption
|
||||
barcodeType => $some_value, # BarcodeType
|
||||
checkSumMethod => $some_value, # CheckSumMethod
|
||||
showTextPosition => $some_value, # ShowTextPosition
|
||||
BarCodeImageFormat => $some_value, # ImageFormats
|
||||
},
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,56 @@
|
||||
package MyTypes::BarcodeOption;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub get_xmlns { 'http://www.webservicex.net/'};
|
||||
|
||||
# derivation by restriction
|
||||
use base qw(
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
);
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 MyTypes::BarcodeOption
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined simpleType
|
||||
BarcodeOption from the namespace http://www.webservicex.net/.
|
||||
|
||||
This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
|
||||
like it's base type.
|
||||
|
||||
# Description of restrictions not implemented yet.
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor.
|
||||
|
||||
=head2 get_value / set_value
|
||||
|
||||
Getter and setter for the simpleType's value.
|
||||
|
||||
=head1 OVERLOADING
|
||||
|
||||
Depending on the simple type's base type, the following operations are overloaded
|
||||
|
||||
Stringification
|
||||
Numerification
|
||||
Boolification
|
||||
|
||||
Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,56 @@
|
||||
package MyTypes::BarcodeType;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub get_xmlns { 'http://www.webservicex.net/'};
|
||||
|
||||
# derivation by restriction
|
||||
use base qw(
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
);
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 MyTypes::BarcodeType
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined simpleType
|
||||
BarcodeType from the namespace http://www.webservicex.net/.
|
||||
|
||||
This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
|
||||
like it's base type.
|
||||
|
||||
# Description of restrictions not implemented yet.
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor.
|
||||
|
||||
=head2 get_value / set_value
|
||||
|
||||
Getter and setter for the simpleType's value.
|
||||
|
||||
=head1 OVERLOADING
|
||||
|
||||
Depending on the simple type's base type, the following operations are overloaded
|
||||
|
||||
Stringification
|
||||
Numerification
|
||||
Boolification
|
||||
|
||||
Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,56 @@
|
||||
package MyTypes::CheckSumMethod;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub get_xmlns { 'http://www.webservicex.net/'};
|
||||
|
||||
# derivation by restriction
|
||||
use base qw(
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
);
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 MyTypes::CheckSumMethod
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined simpleType
|
||||
CheckSumMethod from the namespace http://www.webservicex.net/.
|
||||
|
||||
This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
|
||||
like it's base type.
|
||||
|
||||
# Description of restrictions not implemented yet.
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor.
|
||||
|
||||
=head2 get_value / set_value
|
||||
|
||||
Getter and setter for the simpleType's value.
|
||||
|
||||
=head1 OVERLOADING
|
||||
|
||||
Depending on the simple type's base type, the following operations are overloaded
|
||||
|
||||
Stringification
|
||||
Numerification
|
||||
Boolification
|
||||
|
||||
Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,74 @@
|
||||
package MyTypes::Contract;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
Class::Std::initialize();
|
||||
|
||||
{ # BLOCK to scope variables
|
||||
|
||||
my %ContractID_of :ATTR(:get<ContractID>);
|
||||
my %ContractName_of :ATTR(:get<ContractName>);
|
||||
|
||||
__PACKAGE__->_factory(
|
||||
[ qw(
|
||||
ContractID
|
||||
ContractName
|
||||
) ],
|
||||
{
|
||||
ContractID => \%ContractID_of,
|
||||
ContractName => \%ContractName_of,
|
||||
},
|
||||
{
|
||||
ContractID => 'SOAP::WSDL::XSD::Typelib::Builtin::long',
|
||||
ContractName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
}
|
||||
);
|
||||
|
||||
} # end BLOCK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MyTypes::Contract
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined complextype
|
||||
Contract from the namespace http://www.example.org/benchmark/.
|
||||
|
||||
=head2 PROPERTIES
|
||||
|
||||
The following properties may be accessed using get_PROPERTY / set_PROPERTY
|
||||
methods:
|
||||
|
||||
ContractID
|
||||
ContractName
|
||||
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor. The following data structure may be passed to new():
|
||||
|
||||
{ # MyTypes::Contract
|
||||
ContractID => $some_value, # long
|
||||
ContractName => $some_value, # string
|
||||
},
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,56 @@
|
||||
package MyTypes::ImageFormats;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub get_xmlns { 'http://www.webservicex.net/'};
|
||||
|
||||
# derivation by restriction
|
||||
use base qw(
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
);
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 MyTypes::ImageFormats
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined simpleType
|
||||
ImageFormats from the namespace http://www.webservicex.net/.
|
||||
|
||||
This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
|
||||
like it's base type.
|
||||
|
||||
# Description of restrictions not implemented yet.
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor.
|
||||
|
||||
=head2 get_value / set_value
|
||||
|
||||
Getter and setter for the simpleType's value.
|
||||
|
||||
=head1 OVERLOADING
|
||||
|
||||
Depending on the simple type's base type, the following operations are overloaded
|
||||
|
||||
Stringification
|
||||
Numerification
|
||||
Boolification
|
||||
|
||||
Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,131 @@
|
||||
package MyTypes::Person;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
Class::Std::initialize();
|
||||
|
||||
{ # BLOCK to scope variables
|
||||
|
||||
my %PersonID_of :ATTR(:get<PersonID>);
|
||||
my %Salutation_of :ATTR(:get<Salutation>);
|
||||
my %Name_of :ATTR(:get<Name>);
|
||||
my %GivenName_of :ATTR(:get<GivenName>);
|
||||
my %DateOfBirth_of :ATTR(:get<DateOfBirth>);
|
||||
my %HomeAddress_of :ATTR(:get<HomeAddress>);
|
||||
my %WorkAddress_of :ATTR(:get<WorkAddress>);
|
||||
my %Contracts_of :ATTR(:get<Contracts>);
|
||||
|
||||
__PACKAGE__->_factory(
|
||||
[ qw(
|
||||
PersonID
|
||||
Salutation
|
||||
Name
|
||||
GivenName
|
||||
DateOfBirth
|
||||
HomeAddress
|
||||
WorkAddress
|
||||
Contracts
|
||||
) ],
|
||||
{
|
||||
PersonID => \%PersonID_of,
|
||||
Salutation => \%Salutation_of,
|
||||
Name => \%Name_of,
|
||||
GivenName => \%GivenName_of,
|
||||
DateOfBirth => \%DateOfBirth_of,
|
||||
HomeAddress => \%HomeAddress_of,
|
||||
WorkAddress => \%WorkAddress_of,
|
||||
Contracts => \%Contracts_of,
|
||||
},
|
||||
{
|
||||
PersonID => 'MyTypes::PersonID',
|
||||
Salutation => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
Name => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
GivenName => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
DateOfBirth => 'SOAP::WSDL::XSD::Typelib::Builtin::date',
|
||||
HomeAddress => 'MyTypes::Address',
|
||||
WorkAddress => 'MyTypes::Address',
|
||||
Contracts => 'MyTypes::ArrayOfContract',
|
||||
}
|
||||
);
|
||||
|
||||
} # end BLOCK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MyTypes::Person
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined complextype
|
||||
Person from the namespace http://www.example.org/benchmark/.
|
||||
|
||||
=head2 PROPERTIES
|
||||
|
||||
The following properties may be accessed using get_PROPERTY / set_PROPERTY
|
||||
methods:
|
||||
|
||||
PersonID
|
||||
Salutation
|
||||
Name
|
||||
GivenName
|
||||
DateOfBirth
|
||||
HomeAddress
|
||||
WorkAddress
|
||||
Contracts
|
||||
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor. The following data structure may be passed to new():
|
||||
|
||||
{ # MyTypes::Person
|
||||
PersonID => { # MyTypes::PersonID
|
||||
ID => $some_value, # int
|
||||
},
|
||||
Salutation => $some_value, # string
|
||||
Name => $some_value, # string
|
||||
GivenName => $some_value, # string
|
||||
DateOfBirth => $some_value, # date
|
||||
HomeAddress => { # MyTypes::Address
|
||||
Street => $some_value, # string
|
||||
ZIP => $some_value, # string
|
||||
City => $some_value, # string
|
||||
Country => $some_value, # string
|
||||
PhoneNumber => $some_value, # PhoneNumber
|
||||
MobilePhoneNumber => $some_value, # PhoneNumber
|
||||
},
|
||||
WorkAddress => { # MyTypes::Address
|
||||
Street => $some_value, # string
|
||||
ZIP => $some_value, # string
|
||||
City => $some_value, # string
|
||||
Country => $some_value, # string
|
||||
PhoneNumber => $some_value, # PhoneNumber
|
||||
MobilePhoneNumber => $some_value, # PhoneNumber
|
||||
},
|
||||
Contracts => { # MyTypes::ArrayOfContract
|
||||
Contract => { # MyTypes::Contract
|
||||
ContractID => $some_value, # long
|
||||
ContractName => $some_value, # string
|
||||
},
|
||||
},
|
||||
},
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,68 @@
|
||||
package MyTypes::PersonID;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
Class::Std::initialize();
|
||||
|
||||
{ # BLOCK to scope variables
|
||||
|
||||
my %ID_of :ATTR(:get<ID>);
|
||||
|
||||
__PACKAGE__->_factory(
|
||||
[ qw(
|
||||
ID
|
||||
) ],
|
||||
{
|
||||
ID => \%ID_of,
|
||||
},
|
||||
{
|
||||
ID => 'SOAP::WSDL::XSD::Typelib::Builtin::int',
|
||||
}
|
||||
);
|
||||
|
||||
} # end BLOCK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MyTypes::PersonID
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined complextype
|
||||
PersonID from the namespace http://www.example.org/benchmark/.
|
||||
|
||||
=head2 PROPERTIES
|
||||
|
||||
The following properties may be accessed using get_PROPERTY / set_PROPERTY
|
||||
methods:
|
||||
|
||||
ID
|
||||
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor. The following data structure may be passed to new():
|
||||
|
||||
{ # MyTypes::PersonID
|
||||
ID => $some_value, # int
|
||||
},
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,56 @@
|
||||
package MyTypes::PhoneNumber;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub get_xmlns { 'http://www.example.org/benchmark/'};
|
||||
|
||||
# derivation by restriction
|
||||
use base qw(
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
);
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 MyTypes::PhoneNumber
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined simpleType
|
||||
PhoneNumber from the namespace http://www.example.org/benchmark/.
|
||||
|
||||
This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
|
||||
like it's base type.
|
||||
|
||||
# Description of restrictions not implemented yet.
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor.
|
||||
|
||||
=head2 get_value / set_value
|
||||
|
||||
Getter and setter for the simpleType's value.
|
||||
|
||||
=head1 OVERLOADING
|
||||
|
||||
Depending on the simple type's base type, the following operations are overloaded
|
||||
|
||||
Stringification
|
||||
Numerification
|
||||
Boolification
|
||||
|
||||
Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,56 @@
|
||||
package MyTypes::ShowTextPosition;
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
sub get_xmlns { 'http://www.webservicex.net/'};
|
||||
|
||||
# derivation by restriction
|
||||
use base qw(
|
||||
SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
);
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 MyTypes::ShowTextPosition
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined simpleType
|
||||
ShowTextPosition from the namespace http://www.webservicex.net/.
|
||||
|
||||
This clase is derived from SOAP::WSDL::XSD::Typelib::Builtin::string
|
||||
. SOAP::WSDL's schema implementation does not validate data, so you can use it exactly
|
||||
like it's base type.
|
||||
|
||||
# Description of restrictions not implemented yet.
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor.
|
||||
|
||||
=head2 get_value / set_value
|
||||
|
||||
Getter and setter for the simpleType's value.
|
||||
|
||||
=head1 OVERLOADING
|
||||
|
||||
Depending on the simple type's base type, the following operations are overloaded
|
||||
|
||||
Stringification
|
||||
Numerification
|
||||
Boolification
|
||||
|
||||
Check L<SOAP::WSDL::XSD::Typelib::Builtin> for more information.
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,74 @@
|
||||
package MyTypes::test2;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
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',
|
||||
}
|
||||
);
|
||||
|
||||
} # end BLOCK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MyTypes::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:
|
||||
|
||||
name
|
||||
givenName
|
||||
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor. The following data structure may be passed to new():
|
||||
|
||||
{ # MyTypes::test2
|
||||
name => $some_value, # string
|
||||
givenName => $some_value, # string
|
||||
},
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
@@ -0,0 +1,68 @@
|
||||
package MyTypes::testExtended;
|
||||
use strict;
|
||||
use warnings;
|
||||
use Class::Std::Fast::Storable constructor => 'none';
|
||||
use base qw(SOAP::WSDL::XSD::Typelib::ComplexType);
|
||||
|
||||
Class::Std::initialize();
|
||||
|
||||
{ # BLOCK to scope variables
|
||||
|
||||
my %extend_of :ATTR(:get<extend>);
|
||||
|
||||
__PACKAGE__->_factory(
|
||||
[ qw(
|
||||
extend
|
||||
) ],
|
||||
{
|
||||
extend => \%extend_of,
|
||||
},
|
||||
{
|
||||
extend => 'SOAP::WSDL::XSD::Typelib::Builtin::string',
|
||||
}
|
||||
);
|
||||
|
||||
} # end BLOCK
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
1;
|
||||
|
||||
=pod
|
||||
|
||||
=head1 NAME
|
||||
|
||||
MyTypes::testExtended
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Perl data type class for the XML Schema defined complextype
|
||||
testExtended from the namespace urn:HelloWorld.
|
||||
|
||||
=head2 PROPERTIES
|
||||
|
||||
The following properties may be accessed using get_PROPERTY / set_PROPERTY
|
||||
methods:
|
||||
|
||||
extend
|
||||
|
||||
|
||||
=head1 METHODS
|
||||
|
||||
=head2 new
|
||||
|
||||
Constructor. The following data structure may be passed to new():
|
||||
|
||||
{ # MyTypes::testExtended
|
||||
extend => $some_value, # string
|
||||
},
|
||||
|
||||
=head1 AUTHOR
|
||||
|
||||
Generated by SOAP::WSDL
|
||||
|
||||
=cut
|
||||
|
||||
Reference in New Issue
Block a user