Perl : JSON :: XS 부울 디코딩을 1/0으로 강제 할 수 있습니까?

Question

패키지 JSON :: XS는 JSON :: XS :: Boolean 객체를 사용하여 true/false를 나타냅니다. true/false json 값을 1/0 Perl 숫자로 디코딩하도록 강제 할 수 있습니까?

#!/usr/bin/env perl 

use JSON::XS; 
use Data::Dumper; 

my $json = decode_json(join('', <DATA>)); 
print Dumper $json; 

__DATA__ 
{ 
    "test_true": true, 
    "test_false": false 
} 

출력 :

$VAR1 = { 
      'test_true' => bless(do{\(my $o = 1)}, 'JSON::XS::Boolean'), 
      'test_false' => bless(do{\(my $o = 0)}, 'JSON::XS::Boolean') 
     }; 

내가 decode_json 후 같은 것을 원하는 :

$VAR1 = { 
      'test_true' => 1, 
      'test_false' => 0 
     }; 

이유 : 경우에 따라서는 예측하기 어려운 방법 JSON :: XS :: 부울 것 예를 들어, SOAP 직렬 자 또는 다른 직렬화 자로 직렬화 할 수 있습니다.

PerlMonks discussion.

Answer 1

아니요. 값은 축복받은 개체입니다. JSON :: XS :: Boolean에서 허용되는 값만 가질 수 있습니다.