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 toes

These 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 who value), 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.