1#@!#!123s

32759 1#@!#!123s

: / proc / self / root / home / .cpan / build / JSON-4.10-0 / t /

Filename : e11_conv_blessed_univ.t

back

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";
}