abccf30d2b52d32a466397021947ef2c7349d701
[catagits/catbook-code.git] / lib / LolCatalyst / Lite / Snippet.pm
1 package LolCatalyst::Lite::Snippet;
2
3 use Moose;
4 use namespace::clean -except => 'meta';
5
6 has 'id' => (is => 'ro', required => 1);
7 has 'text' => (is => 'ro', required => 1);
8 has '_translator' => (is => 'ro', required => 1, init_arg => 'translator');
9
10 sub translated {
11   my ($self) = @_;
12   $self->_translator->translate($self->text);
13 }
14
15 sub translated_to {
16   my ($self, $to) = @_;
17   $self->_translator->translate_to($to, $self->text);
18 }
19
20 __PACKAGE__->meta->make_immutable;
21
22 1;