[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');

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;
Commit	Line	Data
28d1f68e	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
8dcce845	10	sub translated {
28d1f68e	11	my ($self) = @_;
	12	$self->_translator->translate($self->text);
	13	}
	14
f077afc0	15	sub translated_to {
	16	my ($self, $to) = @_;
	17	$self->_translator->translate_to($to, $self->text);
	18	}
	19
28d1f68e	20	__PACKAGE__->meta->make_immutable;
	21
	22	1;