rotor boxes

1 files changed, 34 insertions, 0 deletions

diff --git a/lib/Enigmatic/RotorBox.pm b/lib/Enigmatic/RotorBox.pm
new file mode 100644
index 0000000..08a6b22
--- /dev/null
+++ b/lib/Enigmatic/RotorBox.pm
@@ -0,0 +1,34 @@
+package Enigmatic::RotorBox;
+use DAKKAR::p 'class';
+use Enigmatic::Rotor;
+use MooseX::Types::Structured qw(Map);
+use MooseX::Types::Moose qw(Str);
+use Moose::Util::TypeConstraints;
+
+has rotorset => (
+    is => 'ro',
+    isa => Map[Str,class_type('Enigmatic::Rotor')],
+    lazy_build => 1,
+    traits => ['Hash'],
+    handles => {
+        get => 'get',
+    },
+);
+
+sub _build_rotorset {
+    my %rotors = (
+        I => 'EKMFLGDQVZNTOWYHXUSPAIBRCJ',
+        II => 'AJDKSIRUXBLHWTMCQGZNPYFVOE',
+        III => 'BDFHJLCPRTXVZNYEIWGAKMUSQO',
+        IV => 'ESOVPZJAYQUIRHXLNFTGKDCMWB',
+        V => 'VZBRGITYUPSDNHLXAWMJQOFECK',
+        VI => 'JPGVOUMFYQBENHZRDKASXLICTW',
+        VII => 'NZJHGRCXMYSWBOUFAIVLPEKQDT',
+        VIII => 'FKQHTLXOCBJSPDZRAMEWNIUYGV',
+        Beta => 'LEYJVCNIXWPBQMDRTAKZGFUHOS',
+        Gamma => 'FSOKANUERHMBTIYCWLQPZXVGJD',
+    );
+
+    $_ = Enigmatic::Rotor->new($_) for values %rotors;
+    return \%rotors;
+}