From 6a0022d67d4baea240897c7e3b24d2b864f06c60 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Mon, 29 Aug 2011 18:15:22 +0100
Subject: more stepping tests

---
 lib/Enigmatic/Role/Rotate.pm | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 lib/Enigmatic/Role/Rotate.pm

(limited to 'lib/Enigmatic/Role/Rotate.pm')

diff --git a/lib/Enigmatic/Role/Rotate.pm b/lib/Enigmatic/Role/Rotate.pm
new file mode 100644
index 0000000..89fb761
--- /dev/null
+++ b/lib/Enigmatic/Role/Rotate.pm
@@ -0,0 +1,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);
+}
-- 
cgit v1.2.3