NAME

Games::Sequential::Position - base Position class for use with Games::Sequential

SYNOPSIS

package My::GamePos;
use base Games::Sequential::Position;

sub init { ... }   # setup initial state
sub apply { ... }

package main;
my $pos = My::GamePos->new;
my $game = Games::Sequential->new($pos);

DESCRIPTION

Games::Sequential::Position is a base class for position-classes that can be used with Games::Sequential. This class is provided for convenience; you don't need this class to use Games::Sequential. It is also possible to use this class on its own.

PURE VIRTUAL METHODS

Modules inheriting this class must implement at least the apply() method. If you chose to not use this class, you must also implement a copy() method which makes a deep copy of the object.

apply $move

Accept a move and apply it to the current state producing the next state. Return a reference to itself.

Something like this (sans error checking):

sub apply {
    my ($self, $move) = @_;

    ... apply $move, creating next position ...

    return $self;
}

METHODS

The following methods are provided by this class.

new [@list]

Create and return an object. Any arguments is passed on to the init() method. Return a blessed hash reference.

init [@list]

Initialize an object. By default, this only means setting player 1 to be the current player.

This method is called by new(). You You probably want to override this method and initialise your position there. You can call $self-SUPER::init(@_)> from within the overriding method to set default variables.

copy

Clone a position.

player [$player]

Read and/or set the current player. If argument is given, that will be set to the current player.

SEE ALSO

The author's website, describing this and other projects: http://brautaset.org/projects/

AUTHOR

Stig Brautaset, <stig@brautaset.org>

COPYRIGHT AND LICENCE

Copyright (C) 2004 by Stig Brautaset

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.3 or, at your option, any later version of Perl 5 you may have available.