Yet Another CPAN Grep

Acme-Insult ( S/SA/SANKO/Acme-Insult-1.1.tar.gz, SANKO, 2024; MetaCPAN )

Acme-Insult/script/insult.pl ( view source; MetaCPAN )

-json];
#~ @ARGV = qw[-h];
#~ @ARGV = qw[-evil];
#~ @ARGV = qw[-pirate];
#~ @ARGV = qw[-glax];
#~ @ARGV = qw[-flavors];
#
my $raw = 0;
my $flavor;

sub _echo ($insult) {
    $raw && eval 'require JSON

::Tiny' ? JSON::Tiny::encode_json( {%$insult} ) : $insult;
}
GetOptions(
    \my %h, 'language=s',
    'help'     => sub { pod2usage( -exitval => 1 ) },
    'flavors!' => sub { exit !say 'Supported in

sult flavors: ' . join ', ', Acme::Insult::flavors() },
    'json!'    => \$raw,
    'glax!'    => sub { $flavor = 'glax' },
    'evil!'    => sub { $flavor = 'evil' },
    'pirate!'  => sub { $flavor