view release on metacpan or  search on metacpan

script/evil_insult.pl  view on Meta::CPAN

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

# Test
#~ @ARGV = qw[];
#~ @ARGV = qw[-json];
#~ @ARGV = qw[-language fr];
#~ @ARGV = qw[-h];
#
my $raw = 0;

sub _echo ($insult) {    # JSON::Tiny is loaded in Acme::Free::Advice::Unsolicited anyway

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

use Test2::V0;
use open qw[:std :encoding(UTF-8)];
use experimental 'for_list';
#
use lib '../lib', 'lib';
use Acme::Insult::Evil qw[:all];
#
imported_ok qw[insult];
#
ok +insult(), 'stringify';
#
subtest 'evil insults in different languages' => sub {