package Log::ger::UseJSONForDump;
our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2020-06-06'; # DATE
our $DIST = 'Log-ger-UseJSONForDump'; # DIST
our $VERSION = '0.003'; # VERSION
use s
:Clean::ForJSON;
use JSON::MaybeXS;
my @known_configs = qw(pretty);
my %default_configs = (
pretty => 1,
clean => 1,
);
my $cleanser = Data::Clean::ForJSON->get_cleanser;
my $json;
sub imp
gs;
$configs{$k} = $args{$k};
}
$json = JSON::MaybeXS->new;
$json->pretty($configs{pretty} ? 1:0);
$json->binary(1);
$json->allow_nonref(1);
$Log::ger::_dumper = sub