diff options
author | dakkar <dakkar@thenautilus.net> | 2010-11-25 21:16:35 +0000 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2010-11-25 21:16:35 +0000 |
commit | 26f864e4b84dfae2364b6e7f42818df2b4ec5f1e (patch) | |
tree | dafd3bddd139049acfb4eccdf56a015abc3bb3e4 /lib/GridFiller/Constants.pm | |
parent | use the real data (diff) | |
download | qr-builder-26f864e4b84dfae2364b6e7f42818df2b4ec5f1e.tar.gz qr-builder-26f864e4b84dfae2364b6e7f42818df2b4ec5f1e.tar.bz2 qr-builder-26f864e4b84dfae2364b6e7f42818df2b4ec5f1e.zip |
big refactoring
Diffstat (limited to 'lib/GridFiller/Constants.pm')
-rw-r--r-- | lib/GridFiller/Constants.pm | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/lib/GridFiller/Constants.pm b/lib/GridFiller/Constants.pm new file mode 100644 index 0000000..d707782 --- /dev/null +++ b/lib/GridFiller/Constants.pm @@ -0,0 +1,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; |