--- /dev/null
+package LolCatalyst::Lite::Translator;
+
+use Moose;
+use Acme::LOLCAT ();
+use namespace::clean -except => 'meta';
+
+sub translate {
+ my ($self, $text) = @_;
+ return Acme::LOLCAT::translate($text);
+}
+
+__PACKAGE__->meta->make_immutable;
+
+1;
--- /dev/null
+use strict;
+use warnings;
+use Test::More qw(no_plan);
+use LolCatalyst::Lite::Translator;
+
+ok(
+ (my $tr = LolCatalyst::Lite::Translator->new),
+ 'Constructed translator object ok'
+);
+
+like(
+ $tr->translate('Can i have a cheese burger?'),
+ qr/CHEEZ/,
+ 'String translated ok'
+);