Yet Another CPAN Grep

Data-Unixish ( P/PE/PERLANCAR/Data-Unixish-1.574.tar.gz, PERLANCAR, 2025; MetaCPAN )

Data-Unixish/lib/Data/Unixish/chain.pm ( view source; MetaCPAN )

r=>"yellow"}]]}], 1000, 2000);

In command-line:

 % echo -e "1000\n2000" | dux chain --functions-json '["date", ["ANSI::color",{"color":"yellow"}]]'
 2
 3
 4

=head1 FUNCTIONS


=head2 chain

Usage:

Data-Unixish ( P/PE/PERLANCAR/Data-Unixish-1.574.tar.gz, PERLANCAR, 2025; MetaCPAN )

Data-Unixish/lib/Test/Data/Unixish.pm ( view source; MetaCPAN )

 qw(aiduxa);
use Exporter qw(import);
use File::Which qw(which);
use IPC::Cmd qw(run_forked);
use JSON::MaybeXS;
use Module::Load;
use String::ShellQuote;
use Test::More 0.96;

our @EXPORT = qw(test_d

2025-02-24'; # DATE
our $DIST = 'Data-Unixish'; # DIST
our $VERSION = '1.574'; # VERSION


my $json = JSON::MaybeXS->new->allow_nonref;

sub test_dux_func {
    no strict 'refs';

    my %args = @_;

                 ref($v) ?
                                    ("--$p-json",
                                     shell_quote($json->encode($v))) :
                                    ("--$p", shell_q