view release on metacpan or  search on metacpan

examples/inslolt  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;

use lib qw'../lib lib';

use Acme::LOLCAT;

print translate( prebuilt_insult() ), "\n";

sub prebuilt_insult {
  my @insults = (
  "English is your second language, isn't it? You don't have a first.",
  "Just when I think, \"Surely this person has reached and encapsulates the limits of Internet tedium\" you go and push the boundary even further.",
  "I refer to your latest discharge of plebeian verbiage; in which, you have proven, once again, that there is no such thing as unutterable nonsense.",

examples/lolcli  view on Meta::CPAN

#!/usr/bin/perl -l

use strict;
use warnings;

use lib qw'../lib lib';

use Acme::LOLCAT;

# This is a simple command line based translater.
#
# Have lolcli in your path, and feed it some text:
#
# $ lolcli this is some test text, isn't it neat?
#
# Output: