lib/GridFiller/Constants.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

package GridFiller::Constants; 
use strict;
use warnings;
use Scalar::Readonly qw(readonly_on);
use namespace::autoclean;
require Exporter;
 
our @ISA='Exporter';
our @EXPORT=();
our @EXPORT_OK=qw($HORIZONTAL $VERTICAL $BLACK $WHITE $NOTHING);
our %EXPORT_TAGS=(
    colours => [qw($BLACK $WHITE $NOTHING)],
    directions => [qw($HORIZONTAL $VERTICAL)],
    all => [@EXPORT_OK],
);
 
our $VERTICAL = 1;
our $HORIZONTAL = 2;
 
our $NOTHING = 0;
our $BLACK = 1;
our $WHITE = 2;
 
readonly_on($VERTICAL);
readonly_on($HORIZONTAL);
readonly_on($NOTHING);
readonly_on($BLACK);
readonly_on($WHITE);
 
1;