DD
(
P/PE/PERLANCAR/DD-0.006.tar.gz, PERLANCAR, 2019;
MetaCPAN
)
eq 'JSON::Color') {
require JSON::Color;
if ($_action eq 'dd' ) { print JSON::Color::encode_json(\@_)."\n"; return @_ }
elsif ($_action eq 'dd_warn') { warn JSON::Co
de_json(\@_)."\n"; return @_ }
elsif ($_action eq 'dd_warn') { die JSON::Color::encode_json(\@_)."\n" }
elsif ($_action eq 'dmp' ) { return JSON::Color::encode_json(\@
'JSON::MaybeXS') {
require JSON::MaybeXS;
if ($_action eq 'dd' ) { print JSON::MaybeXS::encode_json(\@_)."\n"; return @_ }
elsif ($_action eq 'dd_warn') { warn JSON: