Stig Brautaset


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


    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);


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.


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;


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.


Clone a position.

player [$player]

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


The author's website, describing this and other projects:


Stig Brautaset, <>


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.