view release on metacpan or  search on metacpan

examples/inslolt  view on Meta::CPAN

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.",
  "Just when I think I've read the stupidest thing ever, you go and say something else",
  "Thank you! We're all refreshed and challenged by your unique point of view, you ridiculous little carnival freak.",
  "Is there a gibberish translator in the house? I can't make head nor nail of that uber-babble you flung onto the screen during your latest spasmodic seizure.",
  "I see that you are fluent in Gibbering Moronese. Unfortunately, I'm not. You generate more waffle than the waffle making machine in a waffle factory.",
  "Sorry. I don't speak retardese. Can you get someone to translate into meaningful English before you spew noise from your mouth, please?",
  "Do you speak any language that non-gibbering idiots can understand?",
  "Congratulations! You have just proved the theory that there is no limit to human stupidity.",
  "It sounds like English; it even looks like English, but I can't understand a word you're blabbering.",