dinislage/SOAP-WSDL
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

import SOAP-WSDL 2.00_33 from CPAN

Browse Source 
git-cpan-module:   SOAP-WSDL
git-cpan-version:  2.00_33
git-cpan-authorid: MKUTTER
git-cpan-file:     authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00_33.tar.gz
This commit is contained in:
Martin Kutter authored and Michael G. Schwern committed 2009-12-12 19:48:28 -08:00
1 parent 51db446428
commit 0cbf981665
146 files changed
+3364 -1280
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

benchmark/person_single.pl
+41
View File
@@ -0,0 +1,41 @@
use lib '../lib';
use lib '../example/lib';
use lib '../../SOAP-WSDL_XS/blib/lib';
use lib '../../SOAP-WSDL_XS/blib/arch';
use strict;
use Benchmark;
#use SOAP::WSDL::Deserializer::XSD_XS;
use SOAP::WSDL::Factory::Deserializer;
# # register for SOAP 1.1
SOAP::WSDL::Factory::Deserializer->register('1.1' => 'SOAP::WSDL::Deserializer::XSD_XS' );
SOAP::WSDL::Factory::Transport->register('http' => 'Transport');
use MyInterfaces::TestService::TestPort;
my @data = ();
my $soap = MyInterfaces::TestService::TestPort->new();
# Load all classes - XML::Compile has created everything before, too
timethis 100, sub { $soap->ListPerson({}) };
#timethis 50, sub { push @data, $soap->ListPerson({}) };
#@data = ();
# timethis 50, sub { push @data, $soap->ListPerson({}) };
# for (1..50) { push @data, $soap->ListPerson({}) };
#print $soap->ListPerson({});
package Transport;
use Class::Std::Fast;
sub send_receive {
return <<'EOT';
<SOAP-ENV:Envelope
xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<SOAP-ENV:Body>
<ListPersonResponse xmlns="http://www.example.org/benchmark/">
<out><NewElement><PersonID><ID>1</ID></PersonID><Salutation>Salutation0</Salutation><Name>Name0</Name><GivenName>Martin</GivenName><DateOfBirth>1970-01-01</DateOfBirth><HomeAddress><Street>Street 0</Street><ZIP>00000</ZIP><City>City0</City><Country>Country0</Country><PhoneNumber>++499131123456</PhoneNumber><MobilePhoneNumber>++49150123456</MobilePhoneNumber></HomeAddress><WorkAddress><Street>Somestreet 23</Street><ZIP>12345</ZIP><City>SomeCity</City><Country>Germany</Country><PhoneNumber>++499131123456</PhoneNumber><MobilePhoneNumber>++49150123456</MobilePhoneNumber></WorkAddress><Contracts><Contract><ContractID>100000</ContractID><ContractName>SomeContract0</ContractName></Contract><Contract><ContractID>100001</ContractID><ContractName>SomeContract1</ContractName></Contract><Contract><ContractID>100002</ContractID><ContractName>SomeContract2</ContractName></Contract><Contract><ContractID>100003</ContractID><ContractName>SomeContract3</ContractName></Contract></Contracts></NewElement><NewElement><PersonID><ID>1</ID></PersonID><Salutation>Salutation0</Salutation><Name>Name0</Name><GivenName>Martin</GivenName><DateOfBirth>1970-01-01</DateOfBirth><HomeAddress><Street>Street 0</Street><ZIP>00000</ZIP><City>City0</City><Country>Country0</Country><PhoneNumber>++499131123456</PhoneNumber><MobilePhoneNumber>++49150123456</MobilePhoneNumber></HomeAddress><WorkAddress><Street>Somestreet 23</Street><ZIP>12345</ZIP><City>SomeCity</City><Country>Germany</Country><PhoneNumber>++499131123456</PhoneNumber><MobilePhoneNumber>++49150123456</MobilePhoneNumber></WorkAddress><Contracts><Contract><ContractID>100000</ContractID><ContractName>SomeContract0</ContractName></Contract><Contract><ContractID>100001</ContractID><ContractName>SomeContract1</ContractName></Contract><Contract><ContractID>100002</ContractID><ContractName>SomeContract2</ContractName></Contract><Contract><ContractID>100003</ContractID><ContractName>SomeContract3</ContractName></Contract></Contracts></NewElement><NewElement><PersonID><ID>1</ID></PersonID><Salutation>Salutation0</Salutation><Name>Name0</Name><GivenName>Martin</GivenName><DateOfBirth>1970-01-01</DateOfBirth><HomeAddress><Street>Street 0</Street><ZIP>00000</ZIP><City>City0</City><Country>Country0</Country><PhoneNumber>++499131123456</PhoneNumber><MobilePhoneNumber>++49150123456</MobilePhoneNumber></HomeAddress><WorkAddress><Street>Somestreet 23</Street><ZIP>12345</ZIP><City>SomeCity</City><Country>Germany</Country><PhoneNumber>++499131123456</PhoneNumber><MobilePhoneNumber>++49150123456</MobilePhoneNumber></WorkAddress><Contracts><Contract><ContractID>100000</ContractID><ContractName>SomeContract0</ContractName></Contract><Contract><ContractID>100001</ContractID><ContractName>SomeContract1</ContractName></Contract><Contract><ContractID>100002</ContractID><ContractName>SomeContract2</ContractName></Contract><Contract><ContractID>100003</ContractID><ContractName>SomeContract3</ContractName></Contract></Contracts></NewElement><NewElement><PersonID><ID>1</ID></PersonID><Salutation>Salutation0</Salutation><Name>Name0</Name><GivenName>Martin</GivenName><DateOfBirth>1970-01-01</DateOfBirth><HomeAddress><Street>Street 0</Street><ZIP>00000</ZIP><City>City0</City><Country>Country0</Country><PhoneNumber>++499131123456</PhoneNumber><MobilePhoneNumber>++49150123456</MobilePhoneNumber></HomeAddress><WorkAddress><Street>Somestreet 23</Street><ZIP>12345</ZIP><City>SomeCity</City><Country>Germany</Country><PhoneNumber>++499131123456</PhoneNumber><MobilePhoneNumber>++49150123456</MobilePhoneNumber></WorkAddress><Contracts><Contract><ContractID>100000</ContractID><ContractName>SomeContract0</ContractName></Contract><Contract><ContractID>100001</ContractID><ContractName>SomeContract1</ContractName></Contract><Contract><ContractID>100002</ContractID><ContractName>SomeContract2</ContractName></Contract><Contract><ContractID>100003</ContractID><ContractName>SomeContract3</ContractName></Contract></Contracts></NewElement><NewElement><PersonID><ID>1</ID></PersonID><Salutation>Salutation0</Salutation><Name>Name0</Name><GivenName>Martin</GivenName><DateOfBirth>1970-01-01</DateOfBirth><HomeAddress><Street>Street 0</Street><ZIP>00000</ZIP><City>City0</City><Country>Country0</Country><PhoneNumber>++499131123456</PhoneNumber><MobilePhoneNumber>++49150123456</MobilePhoneNumber></HomeAddress><WorkAddress><Street>Somestreet 23</Street><ZIP>12345</ZIP><City>SomeCity</City><Country>Germany</Country><PhoneNumber>++499131123456</PhoneNumber><MobilePhoneNumber>++49150123456</MobilePhoneNumber></WorkAddress><Contracts><Contract><ContractID>100000</ContractID><ContractName>SomeContract0</ContractName></Contract><Contract><ContractID>100001</ContractID><ContractName>SomeContract1</ContractName></Contract><Contract><ContractID>100002</ContractID><ContractName>SomeContract2</ContractName></Contract><Contract><ContractID>100003</ContractID><ContractName>SomeContract3</ContractName></Contract></Contracts></NewElement><NewElement><PersonID><ILine truncated
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>
EOT
}