?????????? ????????? - ??????????????? - /home/.cpan/build/JSON-4.10-0/t/106_allow_barekey.t
???????
use Test::More; use strict; use warnings; BEGIN { plan tests => 2 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON -support_by_pp; ######################### my $json = JSON->new->allow_nonref; eval q| $json->decode('{foo:"bar"}') |; ok($@); # in XS and PP, the error message differs. $json->allow_barekey; is($json->decode('{foo:"bar"}')->{foo}, 'bar');
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????