Yet Another CPAN Grep

App-BencherUtils ( P/PE/PERLANCAR/App-BencherUtils-0.245.tar.gz, PERLANCAR, 2022; MetaCPAN )

App-BencherUtils/lib/App/BencherUtils.pm ( view source; MetaCPAN )

Utils;

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

use Data::Clean::ForJSON;
use Function::Fallback::CoreOrPP qw(clone);
use Perinci::Object;
use Perinci::Sub::Util qw(err);

Clean::ForJSON->get_cleanser;
    $cleanser->clone_and_clean($_[0]);
}

sub _json {
    state $json = do {
        require JSON::MaybeXS;
        my $json = JSON::MaybeXS->new;
        $json->convert_

blessed(1);
        $json->allow_nonref(1);
        $json->canonical(1);
    };
    $json;
}

sub _encode_json {
    no strict 'refs'; ## no critic: TestingAndDebugging::ProhibitNoStrict
    no warnin