$values->{foo} = JSON::true();
$values->{foo2} = JSON::false();

##</code><code>##

            use JSON;
            my $json =  JSON->new;
               $json->allow_blessed(1);
            print $json->encode($values);

##</code><code>##

$values->{foo} = JSON::Tiny->true;
$values->{foo2} = JSON::Tiny->false;