It works for me
#!/usr/bin/perl --
use strict;
use warnings;
BEGIN {warn scalar gmtime,"\n";}
END {warn scalar gmtime,"\n";}
#~ use SOAP::Lite 0.65 +trace => 'debug';
use SOAP::Lite 0.65
on_fault => sub {
my $msg = "ERROR: ";
my ($soap, $result) = @_;
$msg .= ref $result
? $result->faultstring
: $soap->transport->status;
print STDERR "\tFault -> $msg\n";
};
my $soap =
SOAP::Lite->uri("http://localhost/")
->proxy( 'http://localhost/blah/DummyService', timeout => 1 );
$soap->call(
SOAP::Data->name('FooService'),
SOAP::Data->name('FooVar')->value('$foo')->type('int'),
);
__END__
$ perl test.pl
Wed Aug 18 23:19:38 2010
Fault -> ERROR: 500 Can't connect to localhost:80 (connect: ti
+meout)
Wed Aug 18 23:19:39 2010