g#!/usr/bin/perl -w

## The SOAP boilerplate stuff
## The set-up for 'static' dispatch,
## i.e. all modules are loaded when
## the server is called

use SOAP::Transport::HTTP;
use lib '/Your/Path/To/TicTacToe/Modules';
use TicTacToe::SOAPAgent;	# Only when Soapagent is not included below
use TicTacToe::Board;
use TicTacToe::Position;

SOAP::Transport::HTTP::CGI
    -> dispatch_to('TicTacToe::SOAPAgent',
		   'TicTacToe::Board',
		   'TicTacToe::Position')
    -> handle;