fix up code to 404

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

diff --git a/lib/LolCatalyst/Lite/Snippet.pm b/lib/LolCatalyst/Lite/Snippet.pm
index 01edbe0..5beefcd 100644 (file)
--- a/lib/LolCatalyst/Lite/Snippet.pm
+++ b/lib/LolCatalyst/Lite/Snippet.pm
@@ -5,13 +5,21 @@ use namespace::clean -except => 'meta';
 
 has 'id' => (is => 'ro', required => 1);
 has 'text' => (is => 'ro', required => 1);
-has '_translator' => (is => 'ro', required => 1, init_arg => 'translator');
+has '_translator' => (
+  is => 'ro', required => 1, init_arg => 'translator',
+  handles => [ 'can_translate_to' ],
+);
 
 sub translated {
   my ($self) = @_;
   $self->_translator->translate($self->text);
 }
 
+sub translated_to {
+  my ($self, $to) = @_;
+  $self->_translator->translate_to($to, $self->text);
+}
+
 __PACKAGE__->meta->make_immutable;
 
 1;