X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2Fcatbook-code.git;a=blobdiff_plain;f=lib%2FLolCatalyst%2FLite%2FSnippet.pm;h=5beefcd96f46254cf71df1c973ccf2fc1324d686;hp=abccf30d2b52d32a466397021947ef2c7349d701;hb=e639dea98fb69c9382b0823026d8a62111d3053b;hpb=bab4d401f03e888505bb316de80e40cc79171283 diff --git a/lib/LolCatalyst/Lite/Snippet.pm b/lib/LolCatalyst/Lite/Snippet.pm index abccf30..5beefcd 100644 --- a/lib/LolCatalyst/Lite/Snippet.pm +++ b/lib/LolCatalyst/Lite/Snippet.pm @@ -5,7 +5,10 @@ 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) = @_;