import SOAP-WSDL 2.00.05 from CPAN
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
This commit is contained in:
committed by
Michael G. Schwern
parent
c3e3d1908e
commit
c2ac24dd0f
@@ -0,0 +1,28 @@
|
||||
#!/usr/bin/perl -w
|
||||
use strict;
|
||||
use warnings;
|
||||
# use SOAP::Lite 'trace';
|
||||
use Devel::Leak;
|
||||
use SOAP::WSDL;
|
||||
use SOAP::WSDL::Definitions;
|
||||
use SOAP::WSDL::Binding;
|
||||
my $path = `pwd`; chomp $path;
|
||||
# I have to lookup the URL from the WSDL
|
||||
|
||||
my $table;
|
||||
my $count = Devel::Leak::NoteSV($table);
|
||||
for (1..3) {
|
||||
print "SVs: $count\n";
|
||||
my $definitions = SOAP::WSDL::Definitions->new({
|
||||
annotation => 'Foo',
|
||||
});
|
||||
|
||||
$definitions->set_binding(
|
||||
SOAP::WSDL::Binding->new({ parent => $definitions })
|
||||
);
|
||||
|
||||
undef $definitions;
|
||||
$count = Devel::Leak::NoteSV($table);
|
||||
}
|
||||
print "SVs: $count\n";
|
||||
|
||||
Reference in New Issue
Block a user