File Coverage

blib/lib/Data/Clean/FromJSON/Pregen.pm

Criterion	Covered	Total	%
statement	32	56	57.1
branch	9	30	30.0
condition			n/a
subroutine	6	9	66.6
pod	2	2	100.0
total	49	97	50.5

package Data::Clean::FromJSON::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_from_json_in_place
                       clone_and_clean_from_json
               );

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

 # generated with Data::Clean version 0.505, Data::Clean::FromJSON version 0.394
 sub clean_from_json_in_place {
 my $data = shift;
 state $process_array;
 state $process_hash;
 if (!$process_array) { $process_array = sub { my $a = shift; for my $e (@$a) { my $ref=ref($e);
     if ($ref eq 'JSON::PP::Boolean') { $e = ${ $e } ? 1:0; $ref = '' }
     if ($ref eq 'ARRAY') { $process_array->($e) }
     elsif ($ref eq 'HASH') { $process_hash->($e) }
 } } }
 if (!$process_hash) { $process_hash = sub { my $h = shift; for my $k (keys %$h) { my $ref=ref($h->{$k});
     if ($ref eq 'JSON::PP::Boolean') { $h->{$k} = ${ $h->{$k} } ? 1:0; $ref = '' }
     if ($ref eq 'ARRAY') { $process_array->($h->{$k}) }
     elsif ($ref eq 'HASH') { $process_hash->($h->{$k}) }
 } } }
 for ($data) { my $ref=ref($_);
     if ($ref eq 'JSON::PP::Boolean') { $_ = ${ $_ } ? 1:0; $ref = '' }
     if ($ref eq 'ARRAY') { $process_array->($_) }
     elsif ($ref eq 'HASH') { $process_hash->($_) }
 }
 $data
  }


sub clone_and_clean_from_json {
    my $data = _clone(shift);
    clean_from_json_in_place($data);
}

1;
# ABSTRACT: Clean data from JSON encoder

__END__