diff options
Diffstat (limited to 'lib/Enigmatic/Rotor.pm')
-rw-r--r-- | lib/Enigmatic/Rotor.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/Enigmatic/Rotor.pm b/lib/Enigmatic/Rotor.pm index 792c7b5..e0a3b97 100644 --- a/lib/Enigmatic/Rotor.pm +++ b/lib/Enigmatic/Rotor.pm @@ -1,6 +1,7 @@ package Enigmatic::Rotor; use DAKKAR::p 'class'; use Enigmatic::Types qw(WiringMap Letter RotorPos); +use MooseX::Types::Set::Object; has wiring => ( is => 'ro', @@ -14,6 +15,15 @@ has ring_setting => ( default => 0, ); +has notches => ( + isa => 'Set::Object', + coerce => 1, + handles => { + has_notch_at => 'member', + }, + default => sub { [] }, +); + with 'Enigmatic::Role::WithWiring'; sub map { |