1 2 3 4 5 6 7 8 9
package Enigmatic::Role::Rotate; use DAKKAR::p 'role'; sub _rotate_by { my ($letter,$position) = @_; return chr(ord('A')+ (ord($letter)-ord('A')+26+$position)%26);}