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 35     35   103814 use strict;
  35         72  
  35         1673  
4 35     35   209 use warnings;
  35         73  
  35         1619  
5             require Exporter;
6              
7 35     35   184 use vars qw($VERSION @ISA @EXPORT_OK);
  35         74  
  35         3441  
8              
9             $VERSION = '0.17';
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 35     35   212 use constant NUMBER_OF_NUMBERS => 90;
  35         85  
  35         2715  
20              
21 35     35   287 use constant NUMBER_OF_NUMBERS_IN_ROW => 5;
  35         121  
  35         1937  
22              
23 35     35   493 use constant NUMBER_OF_ROWS_IN_CARD => 3;
  35         261  
  35         1922  
24 35     35   175 use constant NUMBER_OF_COLUMNS_IN_CARD => 9;
  35         63  
  35         2847  
25 35         2002 use constant NUMBER_OF_NUMBERS_IN_CARD =>
26 35     35   188 (NUMBER_OF_NUMBERS_IN_ROW * NUMBER_OF_ROWS_IN_CARD);
  35         7424  
27              
28              
29             1;
30              
31             __END__