Yet Another CPAN Grep

Perinci-Result-Format-Lite ( P/PE/PERLANCAR/Perinci-Result-Format-Lite-0.288.tar.gz, PERLANCAR, 2023; MetaCPAN )

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

sub _json {
    state $json = do {
        if    (eval { require Cpanel::JSON::XS; 1 })   { Cpanel::JSON::XS->new->canonical(1)->convert_blessed->allow_nonref }
        elsif (eval { require JSON::Tin

e; 1 }) { JSON::Tiny::Subclassable->new }
        elsif (eval { require JSON::PP; 1 })   { JSON::PP->new->canonical(1)->convert_blessed->allow_nonref }
        else { die "Can't find any JSON module"

 };
    $json;
};

sub __cleanse {
    state $cleanser = do {
        eval { require Data::Clean::JSON; 1 };
        if ($@) {
            undef;
        } else {
            Data::Clean::JSON->get_cl