Help language development. Donate to The Perl Foundation

Log::Async cpan:BDUGGAN last updated on 2022-03-14

t/command-line-test.pl
use v6;

use Log::Async;
use Log::Async::CommandLine;
use TestModule;

trace   'log trace';
debug   'log debug';
info    'log info';
warning 'log warning';
error   'log error';
fatal   'log fatal';

say "ARGS: {@*ARGS.join(',')}";

if '--testsubs' ∈ @*ARGS
{
    sub_a;
    sub_b;
}