diff options
author | dakkar <dakkar@thenautilus.net> | 2011-08-29 13:54:58 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2011-08-29 13:54:58 +0100 |
commit | 1776bd778db4f6ed72eed47602877ab7a8fb904f (patch) | |
tree | e04b0500dbe53aed33be95d311f46e8e40775017 /lib/Enigmatic/Rotor.pm | |
parent | rotor boxes (diff) | |
download | Enigmatic-1776bd778db4f6ed72eed47602877ab7a8fb904f.tar.gz Enigmatic-1776bd778db4f6ed72eed47602877ab7a8fb904f.tar.bz2 Enigmatic-1776bd778db4f6ed72eed47602877ab7a8fb904f.zip |
reflectors, in box, and some refactor
Diffstat (limited to 'lib/Enigmatic/Rotor.pm')
-rw-r--r-- | lib/Enigmatic/Rotor.pm | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/lib/Enigmatic/Rotor.pm b/lib/Enigmatic/Rotor.pm index a600b43..792c7b5 100644 --- a/lib/Enigmatic/Rotor.pm +++ b/lib/Enigmatic/Rotor.pm @@ -14,17 +14,7 @@ has ring_setting => ( default => 0, ); -around BUILDARGS => sub { - my $orig = shift; - my $class = shift; - - if ( @_ == 1 && !ref $_[0] ) { - return $class->$orig( wiring => $_[0] ); - } - else { - return $class->$orig(@_); - } -}; +with 'Enigmatic::Role::WithWiring'; sub map { my $self = shift; |