File Coverage

blib/lib/Games/Bingo/Constants.pm
Criterion Covered Total %
statement 24 24 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 32 32 100.0


line stmt bran cond sub pod time code
1             package Games::Bingo::Constants;
2              
3 34     34   72425 use strict;
  34         53  
  34         1037  
4 34     34   140 use warnings;
  34         54  
  34         1373  
5             require Exporter;
6              
7 34     34   143 use vars qw($VERSION @ISA @EXPORT_OK);
  34         50  
  34         2881  
8              
9             $VERSION = '0.18';
10             @ISA = qw(Exporter);
11             @EXPORT_OK = qw(
12             NUMBER_OF_NUMBERS
13             NUMBER_OF_ROWS_IN_CARD
14             NUMBER_OF_COLUMNS_IN_CARD
15             NUMBER_OF_NUMBERS_IN_CARD
16             NUMBER_OF_NUMBERS_IN_ROW
17             );
18              
19 34     34   181 use constant NUMBER_OF_NUMBERS => 90;
  34         50  
  34         2777  
20              
21 34     34   165 use constant NUMBER_OF_NUMBERS_IN_ROW => 5;
  34         52  
  34         1769  
22              
23 34     34   154 use constant NUMBER_OF_ROWS_IN_CARD => 3;
  34         210  
  34         3022  
24 34     34   151 use constant NUMBER_OF_COLUMNS_IN_CARD => 9;
  34         44  
  34         2040  
25 34         1815 use constant NUMBER_OF_NUMBERS_IN_CARD =>
26 34     34   170 (NUMBER_OF_NUMBERS_IN_ROW * NUMBER_OF_ROWS_IN_CARD);
  34         52  
27              
28              
29             1;
30              
31             __END__