Martin KutterandMichael G. Schwern
c2ac24dd0f
git-cpan-module: SOAP-WSDL git-cpan-version: 2.00.05 git-cpan-authorid: MKUTTER git-cpan-file: authors/id/M/MK/MKUTTER/SOAP-WSDL-2.00.05.tar.gz
17 lines
343 B
Perl
17 lines
343 B
Perl
use SOAP::WSDL::Expat::WSDLParser;
|
|
use Devel::Leak;
|
|
my $xml = `cat ../wsdl/11_helloworld.wsdl`;
|
|
|
|
my ($table, $count);
|
|
|
|
|
|
for (1..5) {
|
|
$count = Devel::Leak::NoteSV($table);
|
|
print "SV: $count \n";
|
|
my $parser = SOAP::WSDL::Expat::WSDLParser->new();
|
|
$parser->parse_string($xml);
|
|
my $data = $parser->get_data();
|
|
undef $parser;
|
|
undef $data;
|
|
}
|