?????????? ????????? - ??????????????? - /home/.cpan/build/JSON-4.10-0/t/e11_conv_blessed_univ.t
???????
use strict; use Test::More; BEGIN { plan tests => 7 }; BEGIN { $ENV{PERL_JSON_BACKEND} ||= "JSON::backportPP"; } use JSON -convert_blessed_universally; ok( !MyTest->can('TO_JSON') ); ok( MyTest2->can('TO_JSON') ); my $obj = MyTest->new( [ 1, 2, {foo => 'bar'} ] ); $obj->[3] = MyTest2->new( { a => 'b' } ); my $json = JSON->new->allow_blessed->convert_blessed; is( $json->encode( $obj ), '[1,2,{"foo":"bar"},"hoge"]' ); $json->convert_blessed(0); is( $json->encode( $obj ), 'null' ); $json->allow_blessed(0)->convert_blessed(1); is( $json->encode( $obj ), '[1,2,{"foo":"bar"},"hoge"]' ); SKIP: { skip "only works with 5.18+", 1 if $] < 5.018; ok( !MyTest->can('TO_JSON') ); } ok( MyTest2->can('TO_JSON') ); package MyTest; sub new { bless $_[1], $_[0]; } package MyTest2; sub new { bless $_[1], $_[0]; } sub TO_JSON { "hoge"; }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0 |
proxy
|
phpinfo
|
???????????