The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
Games-Tournament-Swiss-0.03
River stage zero No dependents
++
/ Games::Tournament::Contestant::Swiss

NAME

Games::Tournament::Contestant::Swiss A competitor in a FIDE-Swiss-Rules event

VERSION

Version 0.01

SYNOPSIS

    my $foo = Games::Tournament::Contestant::Swiss->new( rating => '15', name => 'Deep Blue', pairingNumber => 2 );
    ...

DESCRIPTION Subclasses Games::Tournament::Contestant with Games::Tournament::Swiss-specific data and methods, like pairingNumber, floats.

Games::Tournament::Swiss will use this class when constructing a 'Bye' contestant.

REQUIREMENTS

Module::Build to install.

METHODS

new

        Games::Tournament::Contestant::Swiss->new( rating => '15', name => 'Red Chessman', pairingNumber => 2, floats => [qw/None Down None None], roles => [qw/Black White Black White/] );

Actually, you don't want to assign pairing numbers this way. Let the assignPairingNumbers method in Games::Tournament::Swiss do it.

preference

        $member->preference

A right (duty) to take a role, eg White or Black, in the next round, calculated as a function of the difference between the number of games previously played in the different roles, and accommodated according to its value, Mild, Strong, or Absolute. An Absolute preference of +2 for White is given when the contestant has played 2 (or a larger number) more of the previous rounds as Black than as White, or when the last 2 rounds were played as Black. A Strong preference of +1 for White represents having played one more round as Black than as White. A Mild preference of +0 occurs when the number of games played with both colors is the same, but the last game was played as Black. A Mild preference of -0 is the same, but with the last game being as White, the preference is for Black. Preferences of -1 and -2 represent the same situations as for +1 and +2, but with the roles reversed. Before the first round, the preference of the highest ranked player (+-0) is determined by lot. A7

pairingNumber

        $member->pairingNumber(1)

Sets/gets the pairing number of the contestant, used to identify participants when pairing them with others. This index is assigned in order of a sorting of the participants by ranking, title and name. You know what you're doing with this number, don't you?

oldId

        $member->oldId

Sets/gets an original, possibly unreliable id of the contestant, supplied before the Games::Tournament::Swiss::assignPairingNumbers function/method is applied, and the result substituted for it.

roles

        $member->roles( 'Black' )
        $rolehistory = $member->roles

If a parameter is passed, adds this to the end of the list representing the old roles that $member has had in this tournament. If no parameter is passed, returns the list reference. If the member had no game or played no game, because of a bye, or an absence, pass 'None'.

floating

        $member->floating
        $member->floating( 'Up'|'Down'|'' )

Sets/gets the direction in which the contestant is floating in the next round, "Up", "Down". If nothing is returned, the contestant is not floating. A4

floats

        $member->floats( $round, 'Down' )
        $rolehistory = $member->floats

# If a float is passed, adds this to a list representing the old floats that $member has had in this tournament. If no parameter is passed, returns a list of all the floats. Remember, if the player was not floated, to pass 'None'. Otherwise, it won't be possible to tell which round the floats on the list correspond to. TODO Perhaps the other way, where an anonymous hash was used is better? If a round number and float is passed, adds this to an anonymous array representing the old floats that $member has had in this tournament. If only a round is passed, returns the float for that round. If no parameter is passed, returns a anonymous hash of all the floats keyed on the round. If the player was not floated, pass 'None'.

AUTHOR

Dr Bean, <drbean, followed by the at mark (@), cpan, then a dot, and finally, org>

BUGS

Please report any bugs or feature requests to bug-games-tournament-contestant at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Games-Tournament-Contestant-Swiss. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Games::Tournament::Contestant::Swiss

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2006 Dr Bean, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.