使用 Moose 在多态情况下对对象进行编码，其中客户端希望访问 $object->{private_variable} 数据

Question

我知道虽然 Moose 对象的内部表示（正确地）未定义。然而，在几乎所有情况下，它将是一个基本的受祝福的哈希引用。在创建新对象的情况下，该对象可能会被旧代码调用，该旧代码希望通过从受祝福的散列中获取对象属性来访问对象属性 ($object->{attribute})，而不是通过方法调用（$object->attribute()）封装到对象中，是否有任何方法可以显式定义该对象需要存储为祝福的哈希引用，以便属性工作正常吗？

更好的是，是否有任何模块可以将传递的受祝福的对象与对象内部表示解耦？似乎可以传递一个绑定哈希，该哈希可以将设置定义的哈希键绑定到针对实例化元对象的方法调用中，因此即使某些旧代码将该对象调用为 $object，所有类型检查仍然可以完成->{属性} = 'blahblah'。

Answer 1

BEGIN {
    package MyMyMy;
    use Moose;
    has "watusi" =>
        is => "rw",
        isa => "Str";
}

my $mymymy = MyMyMy->new( watusi => "batusi" );
print $mymymy->watusi, $/;

$mymymy->watusi("woo-woo");
print $mymymy->{watusi}, $/;

$mymymy->{watusi} = "BAD DEV, BAD!";
print $mymymy->watusi, $/;

__END__    
batusi
woo-woo
BAD DEV, BAD!

我猜你已经知道这会是这样的。我发现很难想象 Moose 会以一种阻止其工作的方式改变内部结构。因此，尽管您试图做到正确，但如果您的真正目标只是从转储中获取一些遗留代码，我想说您可以依赖于此，前提是有一个真正的计划来前进并迁移到更多现代实践并防止界面违规。