View on
MetaCPAN is shutting down
For details read Perl NOC. After June 25th this page will redirect to
Stig Brautaset > Games-Sequential-0.4.3 > Games::Sequential



Annotate this POD

View/Report Bugs
Module Version: 0.4.1   Source  


Games::Sequential - sequential games framework with OO interface


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

    sub apply { ... }

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



Games::Sequential is a framework for producing sequential games. Among other things it keeps track of the sequence of moves, and provides an unlimited undo() mechanism. It also has methods to clone() or take a snapshot() of a game.

Users must pass an object representing the initial state of the game as the first argument to new(). This object must provide the two methods copy() and apply(). You can use Games::Sequential::Position as a base class, in which case the copy() method will be provided for you. The apply() method must take a move and apply it to the current position, producing the next position in the game.


Users must not modify the referred-to values of references returned by any of the below methods.

new $initialpos [@list]

Create and return a new Games::Sequential object. The first argument must be an object representing the initial position of the game. The debug option can also be set here.

_init [@list]

Internal method

Initialize a Games::Sequential object.

debug [$value]

Return current debug level and, if invoked with an argument, set to new value.


Return reference to current position. Use this for drawing the board etc.


Return reference to last applied move.

move $move

Apply $move to the current position, keeping track of history. A reference to the new position is returned, or undef on failure.


Undo last move. A reference to the previous position is returned, or undef if there was no more moves to undo.


Implement the missing methods clone(), snapshot(), save() & resume().


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.

syntax highlighting: