| Games-Bingo documentation | Contained in the Games-Bingo distribution. |
Games::Bingo::Constants - constants used in the many Games::Bingo modules
use Games::Bingo::Constants qw(NUMBER_OF_NUMBERS);
This is a constant defining the number of 90 in the game.
Range: 1-90
This is a constant defining the number of rows in a card.
Definition: 3
This is a constant defining the number of numbers is a row.
Definition: 5
This is a constant defining the number of numbers in a card
Definition: NUMBER_OF_NUMBERS_IN_ROW * NUMBER_OF_ROWS_IN_CARD
This is a constant defining the number of columns in a card
Definition: 9
The TODO file contains a complete list for the whole Games::Bingo project.
jonasbn <jonasbn@cpan.org>
Games::Bingo::Constants and related modules are free software and is released under the Artistic License. See <http://www.perl.com/language/misc/Artistic.html> for details.
Games::Bingo is (C) 2003-2004 Jonas B. Nielsen (jonasbn) <jonasbn@cpan.org>
| Games-Bingo documentation | Contained in the Games-Bingo distribution. |
package Games::Bingo::Constants; # $Id: Constants.pm 1639 2006-12-17 08:23:18Z jonasbn $ use strict; require Exporter; use vars qw($VERSION @ISA @EXPORT_OK); $VERSION = '0.01'; @ISA = qw(Exporter); @EXPORT_OK = qw( NUMBER_OF_NUMBERS NUMBER_OF_ROWS_IN_CARD NUMBER_OF_COLUMNS_IN_CARD NUMBER_OF_NUMBERS_IN_CARD NUMBER_OF_NUMBERS_IN_ROW ); use constant NUMBER_OF_NUMBERS => 90; use constant NUMBER_OF_NUMBERS_IN_ROW => 5; use constant NUMBER_OF_ROWS_IN_CARD => 3; use constant NUMBER_OF_COLUMNS_IN_CARD => 9; use constant NUMBER_OF_NUMBERS_IN_CARD => (NUMBER_OF_NUMBERS_IN_ROW * NUMBER_OF_ROWS_IN_CARD); 1; __END__