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
29 lines
567 B
Perl
29 lines
567 B
Perl
#!/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";
|
|
|