Yet Another CPAN Grep

Data-Clean-ForJSON-Pregen ( P/PE/PERLANCAR/Data-Clean-ForJSON-Pregen-0.001.tar.gz, PERLANCAR, 2019; MetaCPAN )

Data-Clean-ForJSON-Pregen/lib/Data/Clean/ForJSON/Pregen.pm ( view source; MetaCPAN )

package Data::Clean::ForJSON::Pregen;

our $DATE = '2019-09-08'; # DATE
our $VERSION = '0.001'; # VERSION

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);
our @EXPORT_OK = qw(

                 clean_for_json_in_place
                       clone_and_clean_for_json
               );

sub _clone {
    if (eval { require Data::Clone; 1 }) {
        Data::Clone::clone(@_);

clone(@_);
    }
}

 # generated with Data::Clean version 0.505, Data::Clean::ForJSON version 0.394
 sub clean_for_json_in_place { 
 state $sub_unbless = sub {     my $ref = shift;
 
     my $r = ref(