modulereview
$code or die
<p><b>Update: </b>Please let me know if the <pre> tags bother you. I wrote this in pod. I'll try and convert it to code tags if you think it's necessary.</p>
<H2><A NAME="soap">SOAP</A></H2>
<P>(Simple Object Access Protocol : <A HREF="http://www.w3.org/TR/SOAP/">http://www.w3.org/TR/SOAP/</A>)</P>
<P>SOAP is a lightweight protocol for exchanging data using XML. It allows you
access methods and properties of remote objects. Each method call is typically
a seperate SOAP envelope (xml document). The SOAP server opens the envelope,
processes the data, and returns an envelope to the client with a response.</P>
<P>SOAP::Lite does the hard work (creating the envelopes and decoding them), leaving
the developer the easy task or writing client and server code which is almost no
different to what she would have written before.</P>
<P>
<H2><A NAME="why use soap::lite">Why use SOAP::Lite</A></H2>
<P>* It's much easier that using <CODE>SOAP</CODE> where you have to do a lot of the hard work as well</P>
<P>* It supports SOAP 1.1</P>
<P>* It supports lots of protocols other than HTTP. You can even create your own SOAP daemon</P>
<P>* It supports WSDL (Web Service Description Language)</P>
<P>* It supports tracing - so you can see what's going on behind the scenes</P>
<P>* You can use the COM interface on Windows machines</P>
<P>* It's very well documented</P>
<P>
<H2><A NAME="why not use soap::lite">Why NOT use SOAP::Lite</A></H2>
<P>* You want a more low-level API - and more work</P>
<P>* SOAP can be slower that methods you may already be using</P>
<P>* You prefer shower gel</P>
<P>
<H2><A NAME="simple calculator soap server">Simple Calculator SOAP Server</A></H2>
<P>The SOAP server is a regular Perl script, which instructs SOAP::Lite to dispatch methods to
a named package. My example uses SOAP::Lite's CGI implimentation, but you can use SOAP::Lite
over many other protocols such as POP3, SMTP and FTP.</P>
<PRE>
use strict;
use SOAP::Transport::HTTP;
SOAP::Transport::HTTP::CGI
-> dispatch_to('My::SoapServer')
-> handle;</PRE>
<PRE>
package My::SoapServer;</PRE>
<PRE>
sub add { $_[1] + $_[2]; }
sub subtract { $_[1] - $_[2]; }
sub multiply { $_[1] * $_[2]; }
sub divide { $_[1] / $_[2]; }</PRE>
<P>Note that I am ignoring the first parameter for each of the method calls since it is simply the package name.
I guess that SOAP::Lite interprets your requests as (in this case): <CODE>My::SoapServer-</CODE>><CODE>methodname</CODE>.</P>
<P>
<H2><A NAME="client code to access this web service">Client Code to access this Web Service</A></H2>
<P>The client code is quite straightforward. You create a SOAP::lite object,
passing it the details on the SOAP service. Then for each method call, it
returns an object which has, amongst others, <CODE>result</CODE> and <CODE>fault</CODE> methods.</P>
<PRE>
use strict;
use SOAP::Lite;
my $soap = SOAP::Lite
->uri("http://myserver.org/My::SoapServer")
->proxy("http://www.mywebserver.com/soapserver.pl");
</PRE>
<PRE>
print $soap->add(16,8)->result, "\n";
print $soap->subtract(10,2)->result, "\n";
print $soap->multiply(5,5)->result, "\n";
print $soap->divide(1024,2)->result, "\n";</PRE>
<P>
<H2><A NAME="catching errors">Catching Errors</A></H2>
<P>Suppose I misspell the method call (ADD instead of add):</P>
<PRE>
print $soap->ADD(16,8)->result;</PRE>
<P>...prints nothing. Not very helpful. However, if you do the following, you can print the fault, (if there is one)...</P>
<PRE>
my $res = $soap->ADD(16,10);
if ($res->fault) {
print $res->faultstring;
} else {
print $res->result;
}</PRE>
<P>And this time, it will print ``<CODE>Bad Method Call</CODE>''</P>
<P>There are many more error handling functions provided by SOAP::Lite. But you'll need to read the documentation!</P>
<P>
<H2><A NAME="autodispatching">Autodispatching</A></H2>
<P>So far, the client code all looks a bit un-friendly. SOAP::Lite has a feature called <CODE>autodispatch</CODE>
which allows you to write your client code just the same way you would write it if My::SoapServer were
a locally installed module. e.g.</P>
<PRE>
print add(100,-99);</PRE>
<P>See the SOAP::Lite docs for more information and unexpected side-effects.</P>
<P>
<H2><A NAME="things to note">Things to note</A></H2>
<P>See the documentation on <CODE>autodispatch</CODE> before you use it - or it might have strange side-efects. (It overloads UNIVERSAL::AUTOLOAD)</P>
<P>See the documentation on performance - you may be able to improve performance by base64 encoding the XML;</P>
<P>
<H2><A NAME="useful links">Useful Links</A></H2>
<P>There is a two part article on perl.com by Paul Kulchenko (SOAP::Lite author):</P>
<P>Part 1: <A HREF="http://www.perl.com/pub/2001/01/soap.html">http://www.perl.com/pub/2001/01/soap.html</A><BR>
Part 2: <A HREF="http://www.perl.com/pub/2001/04/24/soap.html">http://www.perl.com/pub/2001/04/24/soap.html</A></P>
<P>and you can visit Paul's site at the aptly named <A HREF="http://www.soaplite.com,">http://www.soaplite.com,</A> which is an excellent
SOAP resource in itself</P>
<p><b>Update 2:</B> <a href="http://www.salcentral.com">http://www.salcentral.com</a> and <a href="http://www.xmethods.net">http://www.xmethods.net</a> both provide listings of Web Services you can
play around with.</p>
Add SOAP capabilities to your applications with ease