#!/usr/local/bin/perl

use strict;
use warnings;

use SOAP::Transport::HTTP;

$|++;

my $daemon = SOAP::Transport::HTTP::Daemon
                -> new( LocalAddr => 'localhost', LocalPort => 8080, Reuse => 1 )
                -> dispatch_to('/Users/johno/Code/DCI/Wordbank-DCI-Server/lib');

print STDERR "SOAP server startup at ", $daemon->url, "\nServer INC:", join(' ', @INC), "\n";

$daemon->handle;
##</code><code>##

#!/usr/local/bin/perl

use strict;
use warnings;

#use SOAP::Lite +trace => ['all', '-transport'];
use SOAP::Lite;

my $soap = SOAP::Lite->new(
    uri         => 'http://DCI/Wordbank::DCI::Server',
    proxy       => 'http://10.1.1.50:8080/Server',
    on_fault    => sub { my($soap, $res) = @_;
                        die ref $res ? $res->faultdetail : $soap->transport->status, "\n";
                       });

print $soap->hello()->result, "\n";

##</code><code>##

package Wordbank::DCI::Server;

use vars qw(@ISA);
@ISA = qw(SOAP::Server::Parameters);

use strict;
use warnings;
use Carp;

sub hello {
    my $self = shift;
    print STDERR 'Module INC: ', join(' ', @INC), "\n";
    return "Hello, world\n";
}    
1;

##</code><code>##

<soap:Fault><faultcode>soap:Client</faultcode><faultstring>Failed to access class (Wordbank::DCI::Server): Can't locate Data/Dumper.pm in @INC (@INC contains: /Users/johno/Code/DCI/Wordbank-DCI-Server/lib) at /Users/johno/Code/DCI/Wordbank-DCI-Server/lib/Wordbank/DCI/Server.pm line 9.
BEGIN failed--compilation aborted at /Users/johno/Code/DCI/Wordbank-DCI-Server/lib/Wordbank/DCI/Server.pm line 9.
Compilation failed in require at (eval 98) line 3.
</faultstring><faultactor>http://localhost:8080/</faultactor></soap:Fault>