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

example/leaktest/hello_wsdl.pl

@@ -0,0 +1,45 @@
+#!/usr/bin/perl -w
+use strict;
+use warnings;
+# use SOAP::Lite 'trace';
+use Devel::Leak;
+use Devel::Cycle;
+use SOAP::WSDL;
+my $path = `pwd`; chomp $path;
+# I have to lookup the URL from the WSDL
+
+use SOAP::WSDL::Factory::Transport;
+SOAP::WSDL::Factory::Transport->register('http' => 'SOAP::WSDL::Transport::HTTP');
+
+my $table;
+my $count = Devel::Leak::NoteSV($table);
+
+for (1..10) { 
+    my $soap;
+    $soap = SOAP::WSDL->new(
+	    wsdl => "file://$path/../wsdl/11_helloworld.wsdl",
+    );
+    $count = Devel::Leak::NoteSV($table);
+    print "SVs: $count\n";
+
+    $soap->wsdlinit();
+    # $count = Devel::Leak::NoteSV($table);
+    # print "SVs: $count\n";
+    # $soap->autotype(0);
+
+my $som = $soap->call(
+    "sayHello", 
+    'sayHello', => { 'name' => 'Your Name',
+    'givenName' => 'Your given name',
+	}
+);
+
+die $som->fault->{ faultstring } if ($som->fault);
+
+print $som->result, "\n";
+    undef $som;
+# $count = Devel::Leak::NoteSV($table);
+# print "SVs: $count\n";
+}
+#}
+sleep 500;

example/leaktest/leak.pl

@@ -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";
+

example/leaktest/parse.pl

@@ -0,0 +1,16 @@
+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;
+}