Yet Another CPAN Grep

Perinci-Result-Format ( P/PE/PERLANCAR/Perinci-Result-Format-0.45.tar.gz, PERLANCAR, 2015; MetaCPAN )

Perinci-Result-Format/lib/Perinci/Result/Format.pm ( view source; MetaCPAN )

['YAML', 'text/yaml', {circular=>0}],
    json          => ['CompactJSON', 'application/json', {circular=>0}],
    'json-pretty' => ['JSON', 'application/json', {circular=>0}],
    text          => [$

have one type of cleansing, oriented towards JSON
        if (!$cleanser) {
            require Data::Clean::JSON;
            $cleanser = Data::Clean::JSON->get_cleanser;
        }
        $res = $cl

tter->($format, $res);
    } else {
        my %o;
        $o{color} = 0 if !$deco && $format =~ /json|yaml|perl/;
        my $data = $is_naked ? $res->[2] : $res;
        return Data::Format::Pretty: