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;