1 files changed, 27 insertions, 0 deletions
diff --git a/lib/Enigmatic/Plugboard.pm b/lib/Enigmatic/Plugboard.pm
new file mode 100644
index 0000000..b505195
--- /dev/null
+++ b/lib/Enigmatic/Plugboard.pm
@@ -0,0 +1,27 @@
+package Enigmatic::Plugboard;
+use DAKKAR::p 'class';
+use Enigmatic::Types qw(PlugWiringMap Letter);
+
+has wiring => (
+    is => 'ro',
+    isa => PlugWiringMap,
+    coerce => 1,
+    builder => '_build_wiring',
+);
+
+sub _build_wiring {
+    my %map = map { $_, $_ } 'A'..'Z';
+    return \%map;
+}
+
+with 'Enigmatic::Role::WithWiring';
+
+sub map {
+    my $self = shift;
+    my ($letter) = pos_validated_list(
+        \@_,
+        { isa => Letter },
+    );
+
+    return $self->wiring->at($letter);
+}