fix up code to 404

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

diff --git a/lib/LolCatalyst/Lite/Translator.pm b/lib/LolCatalyst/Lite/Translator.pm
index 05122a1..8832943 100644 (file)
--- a/lib/LolCatalyst/Lite/Translator.pm
+++ b/lib/LolCatalyst/Lite/Translator.pm
@@ -38,6 +38,11 @@ sub translate {
   $self->translate_to($self->default_target, $text);
 }
 
+sub can_translate_to {
+  my ($self, $target) = @_;
+  return exists $self->_translators->{$target};
+}
+
 sub translate_to {
   my ($self, $target, $text) = @_;
   $self->_translators->{$target}->translate($text);