Hello,

I am trying to get a SOAP::Lite client/server working but keep getting this error on the client side when using autodispatch (Not a HASH reference at C:/Perl/site/lib/SOAP/Lite.pm line 3828.) with SOAP::Lite version 0.712 or higher. With the older version 0.60a of this module the code seems to work as expected.

Martin Kutter (the author of this module) conveyed that I could be missing an API, which I am still not sure of as I went through all the documentation. Can you please help review this and point out the error? Thanks

############## Server ############## 
#!perl -w
use strict;
use warnings;

use SOAP::Lite +trace => 'all';
use SOAP::Transport::HTTP;
my $daemon = SOAP::Transport::HTTP::Daemon->new(
    LocalAddr => 'localhost',
    LocalPort => 8001,
    listen => 5
);
$daemon->dispatch_to('Hello');
print "Contact SOAP server at ", $daemon->url, "\n";
$daemon->handle();

package Hello;

sub new {
    my $class = shift;
    my $self = {
        TEXT => "ABC",
    @_,
    };
    bless $self, $class;
    return $self;
}

sub getText {
     my ($self, $arg) = @_;
     return $self->{TEXT};
}

1;


############## Client ############## 
#!perl -w
use strict;
use warnings;

use SOAP::Lite +autodispatch => on_fault => sub {
        my ($soap, $res) = @_;
        print ref $res ? $res->faultstring : $soap->transport->status,
+ "\n";
        return "SOAP_TRANSPORT_ERROR";
    },
    #trace => 'all',
    ;
my $uri   = "http://localhost/Hello";
my $proxy = "http://localhost:8001/server.pl";
SOAP::Lite->self->uri($uri)->proxy($proxy);

my $h = Hello->new();
my $output = $h->getText();
print $output . "\n";
[download]