use Test::More;
if (not $ENV{PROFILE_PERFORMANCE}) {
plan ('skip_all' => 'This is a performance test. Set PROFILE_PERFORMANCE env var to a true value to run');
exit 1;
}
plan qw(no_plan);
use SOAP::Lite;
my $content = SOAP::Data->name('test')->uri('http://example.org')
->value([
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
\SOAP::Data->name('level1')->value('value1')->uri('http:/example.org'),
]);
my $soap = SOAP::Lite->proxy('loopback://');
for (1..100) {
my $response = $soap->call('test', \$content);
}