my journeys into soap have been quite sucessful lately, until I ran into this wall..
the soap service:
use strict;
use SOAP::Transport::HTTP;
my $daemon = SOAP::Transport::HTTP::Daemon->new
(LocalAdd => 'localhost', LocalPort => 8082);
$daemon->dispatch_to("BenderRemote")->handle;
package BenderRemote;
sub ping
{
print "ping called\n";
return scalar(localtime());
}
sub new {
my ($pkg) = @_;
print "new!\n";
my $self = {};
return bless $self, $pkg;
}
sub loadData {
my ($self) = @_;
print "loaddata!\n";
$self->{data} = "fobars";
return 1;
}
and my client script:
use strict;
use Data::Dumper;
use SOAP::Lite;
my $soap = SOAP::Lite
->uri("http://host/BenderRemote")
->proxy("http://host:8082");
my $br = $soap->call("new")->result();
$br->loadData();
print Dumper $br;
It seem to be having trouble running the second method, which I'm not starting via call()..
any input?
-ryan