diff options
author | dakkar <dakkar@thenautilus.net> | 2011-08-29 14:24:53 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2011-08-29 14:24:53 +0100 |
commit | ebae593425aef965ca2504db727c56e70d308d87 (patch) | |
tree | a69b4a03d646232fd8383dbf870ca90bbdd41eb1 /lib/Enigmatic/Rotor.pm | |
parent | test ring_setting is writable (diff) | |
download | Enigmatic-ebae593425aef965ca2504db727c56e70d308d87.tar.gz Enigmatic-ebae593425aef965ca2504db727c56e70d308d87.tar.bz2 Enigmatic-ebae593425aef965ca2504db727c56e70d308d87.zip |
notches
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 { |