tomee-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From dblev...@apache.org
Subject svn commit: r736966 - /openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl
Date Fri, 23 Jan 2009 06:43:25 GMT
Author: dblevins
Date: Thu Jan 22 22:43:25 2009
New Revision: 736966

URL: http://svn.apache.org/viewvc?rev=736966&view=rev
Log:
A perl SOAP::Lite web service client for Tomcat/OpenEJB/CXF

Added:
    openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl

Added: openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl
URL: http://svn.apache.org/viewvc/openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl?rev=736966&view=auto
==============================================================================
--- openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl (added)
+++ openejb/trunk/openejb3/examples/webapps/ejb-webservice/client.pl Thu Jan 22 22:43:25 2009
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+use SOAP::Lite;
+
+my $namespace = 'http://superbiz.org/wsdl';
+
+my $service = SOAP::Lite-> uri($namespace) 
+    ->proxy('http://localhost:8080/Calculator') 
+    ->on_action (sub { return '' } ); 
+
+my $method = SOAP::Data->name("ns1:multiply") 
+    ->attr({'xmlns:ns1' => $namespace}); 
+
+my @params = (
+    SOAP::Data->name('arg0'=>3), 
+    SOAP::Data->name('arg1'=>4)); 
+
+print $service->call($method=>@params)->result; 



Mime
View raw message