package Bla; use Moose; has eins => is => 'ro',isa => 'Int'; has zwei => is => 'ro',isa => 'Int',default => 2; no Moose; __PACKAGE__->Meta->make_immutable; package main; use v5.10; use Data::Dumper; use URI; my $bla = Bla->new( eins => 77 ); my $bl2 = Bla->new; print Dumper $bla,$bl2; say join "\t",%$bla; say join "\t",%$bl2; my $u = URI->new( 'http://www.example.com/ws' ); $u->query_form( %$bla ); say $u; $u->query_form( %$bl2 ); say $u;
只要那种数据容器没有任何引用成员(因此没有嵌套),你是否可以说,如果你想获得原始的,只需使用对象哈希表就像在％$对象中一样好或者可以推荐数据,假设是通过URI->query_form或类似方法进行序列化的初始化程序？或者有没有更好的方法来实现这个内置于穆斯？
UPDATE
通过在上面的行,标题,甚至标签中删除小字序列化,我看起来一直在引导人们走错路.请注意,我对查找序列化程序不感兴趣.在我的示例中,URI模块是序列化程序.问题是如何获取数据以提供URI-> query_form(或我可能尝试的任何其他序列化程序).所以我想知道的是,对于给定的Moose对象$object,只需取消引用对象引用即可获取数据(键和值,或者,如果您愿意,还可以获取属性名称和值),如％$object ？只要对象不包含任何引用值(如数组引用,其他对象等)以及 – 我不确定的事情 – Moose赢了,如果我迄今为止收集的经验是可行的,这将有效.不要使用实例引用来存储自己的数据,例如__MOOSE_WHATNOT => $funky_moose_addon.那么Moose可能会使用实例引用来存储它自己的一些数据,还是被设计排除？
更新2
要回答标题中的问题：
不,使用％$object来获取Moose对象的数据是不可行的,即使它不包含任何引用值,因此您将获得构成$对象的字符串和数字的副本.这不好,因为它破坏了封装.它甚至可能导致运行时错误,因为虽然散列是构成Moose对象基础的默认数据结构,但不能保证它总是一个散列,它实际上可能是其他东西.
您应该使用MooseX :: Storage,它将为对象提供pack方法.
解决方法
像MooseX :: Storage这样的包使用MOP来查询实例元对象并正确地序列化数据结构.你当然可以通过抓取每个Moose对象后面的Moose :: Meta :: Class来手动完成这个操作,但老实说MooseX :: Storage写得很好并且此时非常稳定.
标准用法是：
package Class {
use Moose;
use MooseX::Storage;
with Storage();
...
}
my $o = Class->new(...)
my $u = URI->new( 'http://www.example.com/ws' );
$u->query_form( $o->pack );