Commit | Line | Data |
cc003be0 |
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; |