Yet Another CPAN Grep

Perinci-CmdLine-Inline ( P/PE/PERLANCAR/Perinci-CmdLine-Inline-0.554.tar.gz, PERLANCAR, 2022; MetaCPAN )

Perinci-CmdLine-Inline/lib/Perinci/CmdLine/Inline.pm ( view source; MetaCPAN )

Inline;

use 5.010001;
use strict 'subs', 'vars';
use warnings;
use Log::ger;

use Data::Dmp;
use JSON::MaybeXS ();
use Module::CoreList::More;
use Module::Path::More qw(module_path);
use Perinci::Sub

ush @l, '$_pci_r->{format} = $_[1];';
    } elsif ($co eq 'json') {
        push @l, '$_pci_r->{format} = (-t STDOUT) ? "json-pretty" : "json"; ## no critic InputOutput::ProhibitInteractiveTest' . "\n

                          } elsif ($specmeta->{is_json}) {
                                push @l, '$_pci_args{\'', $specmeta->{arg}, '\'} = _pci_json()->decode($_[1]);';