projects
/
catagits/catbook-code.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
b6e26eaa070285606e5afc85aaea48f838ff2c59
[catagits/catbook-code.git]
/
lib
/
LolCatalyst
/
Lite
/
Model
/
Translate.pm
1
package LolCatalyst::Lite::Model::Translate;
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;