NAME
Acme::Insult::Glax - Programmatically Generate Insults
SYNOPSIS
use Acme::Insult::Glax qw[insult];
say insult( );DESCRIPTION
Acme::Insult::Glax provides 'insulting' statements generated by the RESTful libInsult API.
METHODS
These functions may be imported by name or with the :all tag.
insult( [...] )
Tear someone down.
my $shade = insult( ); # Random insult
print insult( lang => 'en_corporate', who => 'John and Eric', plural => 1 );
print insult( lang => 'en_corporate', who => 'John' );
print insult( lang => 'en_corporate', who => 'John' );You may request specific insults by passing parameters.
Expected parameters include:
lang-
Insult's language style. Expected styles include:
en-
Plain English. This is the default.
en_corporate-
English with corporate jargon inserted. Perfect for the 4:50p work email.
template-
Insult template.
The default value is different depending on the parameters passed to the API:
lang => 'en'-
You are as <adjective> as <article target=adj1> <adjective min=1 max=3 id=adj1> <amount> of <adjective min=1 max=3> <animal> <animal_part> lang => 'en', who => 'Alex'-
Alex is as <adjective> as <article target=adj1> <adjective min=1 max=3 id=adj1> <amount> of <adjective min=1 max=3> <animal> <animal_part> lang => 'en', plural => 1-
You are as <adjective> as <article target=adj1> <adjective min=1 max=3 id=adj1> <amount> of <adjective min=1 max=3> <animal> <animal_part> en_corporate-
We <adverb> <verb> <adjective min=1 max=3> <noun> lang => 'en_corporate', who => 'Alex'-
Alex <adverb> <verb id=verb><verb_3rd target=verb> <adjective min=1 max=3> <noun> lang => 'en_corporate', plural => 1-
We <adverb> <verb> <adjective min=1 max=3> <noun>"
A few examples might be...
John and Eric <adverb> <verb id=verb><verb_3rd target=verb> <adjective min=1 max=3> <noun> # John and Eric proactively facilitates cutting-edge elastic products John and Eric are as <adjective> as <article target=adj1> <adjective min=1 max=3 id=adj1> <amount> of <adjective min=1 max=3> <animal> <animal_part> # John and Eric is as disgusting as an unsatisfactory mass of stinky revolting boring maggot toesThese are undocumented but from my tinkering, I've figured out that templates can accept the following pseudo-XML tags:
<article>-
Properly fills in a/an depending on what follows it.
You may target another field by its id.
... <article target='adj1' /> <adjective id='adj1' max='3' /> ... <adverb><adjective>-
<adjective min=1 max=3 id=adj1> <amount><animal><animal_part><noun><verb>-
Inserts an action or activity.
Be aware that some of these are unsupported when the language is set to
en_corporate. who-
Person to insult. If present, changes the template to third person singular.
plural-
If present (along with a
whovalue), changes the template to third person plural.
adjective( [...] )
my $adjective0 = adjective( );
my $adjective1 = adjective( 'en' );
my $adjective2 = adjective( 'en_corporate' );Generates a single descriptive adjective in plain text.
Expected parameters include:
lang-
Language style. Expected values include:
en-
Plain English. This is the default.
en_corporate-
English with corporate jargon inserted.
LICENSE & LEGAL
Copyright (C) Sanko Robinson.
This library is free software; you can redistribute it and/or modify it under the terms found in the Artistic License 2. Other copyrights, terms, and conditions may apply to data transmitted through this module.
Insults are generated by libInsult which is maintained by Mattia "Glax" Basaglia.
AUTHOR
Sanko Robinson <sanko@cpan.org>
...but why?
I'm inflicting this upon the world because oodler577 invited me to help expand Perl's coverage of smaller open APIs. Blame them or join us in the effort.