Le Mer. Mar. 19 21:56:39 2008, MAKAMAKA a écrit :
Show quoted text> You perhaps use JSON::XS as the backend?
> You should write the code:
>
> BEGIN { $ENV{PERL_JSON_BACKEND} = 0; }
> use JSON;
> print JSON::PP::true->isa('JSON::Boolean');
>
> If you don't know what the backend module is used,
> you should not use JSN::PP::true but JSON::true.
I use JSON -support_by_pp
with :
my $json = JSON->new
->allow_barekey
->allow_singlequote
->utf8;
I don't use JSON::PP::true directly, but JSON::PP:true is returned by
$json->decode when encountering 'true'.