fix up code to 404

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

package LolCatalyst::Lite::Snippet;

use Moose;
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',
  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;