factor LOLCAT translator out into its own file

[catagits/catbook-code.git] / lib / LolCatalyst / Lite / Translator.pm

diff --git a/lib/LolCatalyst/Lite/Translator.pm b/lib/LolCatalyst/Lite/Translator.pm
index 3aeb7de..7dd978e 100644 (file)
--- a/lib/LolCatalyst/Lite/Translator.pm
+++ b/lib/LolCatalyst/Lite/Translator.pm
@@ -1,12 +1,31 @@
 package LolCatalyst::Lite::Translator;
 
+use LolCatalyst::Lite::Translator::LOLCAT;
+
 use Moose;
-use Acme::LOLCAT ();
 use namespace::clean -except => 'meta';
 
+has 'default_target' => (
+  is => 'ro', isa => 'Str', required => 1, default => 'LOLCAT'
+);
+
+has 'translators' => (
+  is => 'ro', isa => 'HashRef', lazy_build => 1
+);
+
+sub _build_translators {
+  my ($self) = @_;
+  return { LOLCAT => LolCatalyst::Lite::Translator::LOLCAT->new };
+}
+
 sub translate {
   my ($self, $text) = @_;
-  return Acme::LOLCAT::translate($text);
+  $self->translate_to($self->default_target, $text);
+}
+
+sub translate_to {
+  my ($self, $target, $text) = @_;
+  $self->translators->{$target}->translate($text);
 }
 
 __PACKAGE__->meta->make_immutable;