blob: d7077827d357053d510d8baa63d06dcd740af580 (
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
|
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;
|