One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

View File Name : 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";
}