1 package LolCatalyst::Lite::Translator;
3 use Module::Pluggable::Object;
6 use aliased 'LolCatalyst::Lite::Interface::TranslationDriver';
7 use namespace::clean -except => 'meta';
9 has 'default_target' => (
10 is => 'ro', isa => 'Str', required => 1, default => 'LOLCAT'
13 has '_translators' => (
14 is => 'ro', isa => 'HashRef', lazy_build => 1
17 sub _build__translators {
19 my $base = __PACKAGE__.'::Driver';
20 my $mp = Module::Pluggable::Object->new(
21 search_path => [ $base ]
23 my @classes = $mp->plugins;
25 foreach my $class (@classes) {
26 Class::MOP::load_class($class);
27 unless ($class->does(TranslationDriver)) {
28 confess "Class ${class} in ${base}:: namespace does not implement Translation Driver interface";
30 (my $name = $class) =~ s/^\Q${base}::\E//;
31 $translators{$name} = $class->new;
37 my ($self, $text) = @_;
38 $self->translate_to($self->default_target, $text);
42 my ($self, $target, $text) = @_;
43 $self->_translators->{$target}->translate($text);
46 __PACKAGE__->meta->make_immutable;