Use the SOAP::Lite module from the SOAP-Lite distribution:
use SOAP::Lite; $server = SOAP::Lite -> uri("http://localhost/Namespace") -> proxy("http://server.example.com/path"); $result = $server->call('ClassName.handler', @ARGS); die $call->faultstring if $call->fault; print $call->result;
A single SOAP server may offer remote access to the methods of many classes. A client identifies the class upon which it wishes to invoke methods with the uri parameter. The hostname in the argument is irrelevant; only the path portion (the class name) matters. For example, these two URIs are equivalent:
http://modacrylic.clue.com/GimpyMod http://weenies.mit.edu/GimpyMod
As with XML-RPC, the proxy argument is the server's URL. For example, if your SOAP server is implemented as a CGI script, the proxy call looks like this:
$server->proxy("http://server.example.com/path/to/server.cgi");
Invoke remote methods as you do with XML-RPC, either with the call method:
$returned = $server -> call("getRecordByNumber", 12, { format => "CSV" }) -> result;
or by invoking the method on a SOAP::Lite object directly:
$returned = $server -> getRecordByNumber(12, { format => "CSV" }) -> result;
or using autodispatch:
use SOAP::Lite +autodispatch => uri => "http://identifier.example.com/Namespace", proxy => "http://server.example.com/path"; $returned = getRecordByNumber(12, { format => "CSV" });
You can also use this with OO syntax:
$returned = Some::Remote::Module->getRecordByNumber(12, { format => "CSV" });
There's a lot more to SOAP than we can explain here. The books Programming Web Services with SOAP, by James Snell, Pavel Kulchenko, and Doug Tidwell (O'Reilly), and Programming Web Services with Perl, by Randy Ray and Pavel Kulchenko (O'Reilly), form a comprehensive guide to the standards and implementations. Also see Recipe 18.11; Recipe 18.13
Copyright © 2003 O'Reilly & Associates. All rights reserved.