summaryrefslogtreecommitdiff
path: root/lib/Enigmatic/ReflectorBox.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Enigmatic/ReflectorBox.pm')
-rw-r--r--lib/Enigmatic/ReflectorBox.pm28
1 files changed, 28 insertions, 0 deletions
diff --git a/lib/Enigmatic/ReflectorBox.pm b/lib/Enigmatic/ReflectorBox.pm
new file mode 100644
index 0000000..eafa667
--- /dev/null
+++ b/lib/Enigmatic/ReflectorBox.pm
@@ -0,0 +1,28 @@
+package Enigmatic::ReflectorBox;
+use DAKKAR::p 'class';
+use Enigmatic::Reflector;
+use MooseX::Types::Structured qw(Map);
+use MooseX::Types::Moose qw(Str);
+use Moose::Util::TypeConstraints;
+
+has reflectorset => (
+ is => 'ro',
+ isa => Map[Str,class_type('Enigmatic::Reflector')],
+ lazy_build => 1,
+ traits => ['Hash'],
+ handles => {
+ get => 'get',
+ },
+);
+
+sub _build_reflectorset {
+ my %reflectors = (
+ B => 'YRUHQSLDPXNGOKMIEBFZCWVJAT',
+ C => 'FVPJIAOYEDRZXWGCTKUQSBNMHL',
+ 'B_thin' => 'ENKQAUYWJICOPBLMDXZVFTHRGS',
+ 'C_thin' => 'RDOBJNTKVEHMLFCWZAXGYIPSUQ',
+ );
+
+ $_ = Enigmatic::Reflector->new($_) for values %reflectors;
+ return \%reflectors;
+}