json - 将 JSON 反序列化为受祝福的对象

Question

“如何将 Perl 对象转换为 JSON，反之亦然”的公认答案说转换很麻烦。

有人真的使用 JSON 来反序列化嵌套的祝福对象吗？如何？

Answer 1

使用JSYNC。

perl -Moose=Foo -MJSYNC -e'
    has "attr", is => "rw", isa => "HashRef[HashRef]", default => sub { { 0 => { 1 => { 3 => 4} } } };
    print JSYNC::dump(Foo->new)
'
{"!":"!perl/hash:Foo","attr":{"0":{"1":{"3":"4"}}}}