#!perl

use 5.010;
use strict;
use warnings;

use Data::Clean::FromJSON;
use DateTime;
use JSON;
use Test::More 0.98;

my $c = Data::Clean::FromJSON->get_cleanser;
my $data;
my $cdata;

$cdata = $c->clean_in_place({
    bool1  => JSON::true,
    bool2  => JSON::false,
});
is_deeply($cdata, {
    bool1  => 1,
    bool2  => 0,
}, "cleaning up");

done_testing();