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

package LolCatalyst::Lite::Model::Translator;

use strict;
use warnings;
use parent 'Catalyst::Model';

use Acme::LOLCAT ();
use Memoize;
memoize ('translate');

sub translate {
    my ($self, $text) = @_;
    return Acme::LOLCAT::translate($text);
}

1;
Commit	Line	Data
2e909c0d	1	package LolCatalyst::Lite::Model::Translator;
cc003be0	2
	3	use strict;
	4	use warnings;
	5	use parent 'Catalyst::Model';
	6
	7	use Acme::LOLCAT ();
	8	use Memoize;
	9	memoize ('translate');
	10
	11	sub translate {
	12	my ($self, $text) = @_;
	13	return Acme::LOLCAT::translate($text);
	14	}
	15
	16	1;