package TicTacToe::SOAPAgent; use strict; use base qw(TicTacToe::Board); use TicTacToe::MinMax; use TicTacToe::Position; # Returns new game object sub new { bless $something; } # Submits a human player's move to the server sub submit_move { my $self = shift; my $square = shift; ## The code which will update the position ## for the client (human). Therefore, it takes the ## human's move, a square (int in the range 0-8), ## as an argument. ## This code generates a fault if the move is illegal. ## If nothing goes wrong... return $self; } # Plays computer's best move sub play_best_move { my $self = shift; my $square = shift; ## The code selects the best move ## for the server and updates the position ## accordingly return $self; } 1; __END__