Файловый менеджер - Редактировать - /home/.cpan/build/JSON-4.10-0/t/107_allow_singlequote.t
�азад
use Test::More; use strict; use warnings; BEGIN { plan tests => 4 }; 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_singlequote; is($json->decode(q|{'foo':"bar"}|)->{foo}, 'bar'); is($json->decode(q|{'foo':'bar'}|)->{foo}, 'bar'); is($json->allow_barekey->decode(q|{foo:'bar'}|)->{foo}, 'bar');
| ver. 1.4 |
Github
|
.
| PHP 8.2.29 | Генераци� �траницы: 0 |
proxy
|
phpinfo
|
�а�тройка