blob: 041b8fdec4a247b7492fd332a105330a154b9a11 (
plain)
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
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; __END__
|