#!/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;