view release on metacpan or  search on metacpan

script/glax_insult.pl  view on Meta::CPAN

use lib '../lib';
use v5.36;
use Acme::Insult::Glax;
use Getopt::Long;
use Pod::Usage;
use open qw[:std :encoding(UTF-8)];

# Test
#~ @ARGV = qw[];
#~ @ARGV = qw[-j];
#~ @ARGV = qw[-who Tim];

t/00_compile.t  view on Meta::CPAN

use Test2::V0;
#
use lib '../lib', 'lib';
use Acme::Insult::Glax qw[:all];
#
imported_ok qw[adjective insult];
#
subtest 'adjective' => sub {
    ok adjective(),               'generate random adjective';
    ok adjective('en_corporate'), 'generate random corpo-jargon adjective';
    is my $adjective = adjective(), hash {
        field args => hash {
            field lang => string 'en';