SOAP return:
use strict;
use Data::Dumper;
use SOAP::Lite + "trace";
my $soap = SOAP::Lite
-> uri('http://www.perlmonks.org/FileQueue')
-> proxy('http://localhost:88')
;
my $rslt = $soap->getServerInfo()->result;
####
0.1.dev
txt
txt
0
##
##
use strict;
use SOAP::Lite + "trace";
use SOAP::Transport::HTTP;
use Data::Dumper;
my $serverinfo = {
version => "0.1.dev",
validTypes => {
filetype => "txt",
filetype => "html",
},
statistics => {
documentsProcessed => 0,
},
};
sub FileQueue::getServerInfo {
return $serverinfo;
}
my $daemon = SOAP::Transport::HTTP::Daemon
-> new (LocalPort => 88)
-> dispatch_to('FileQueue')
;
print "Contact to SOAP server at ", $daemon->url, "\n";
$daemon->handle;
##
##
0
0.1.dev
html