Moose(Perl):使用%$ object来获取序列化对象的数据表示是否可以？

Question

我经常使用Moose以确保我的数据具有合适的默认值,如下所示:

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;

只要那种数据容器没有任何引用成员(因此没有嵌套),你会说只是使用对象哈希表是可以的,或者是值得推荐的,%$object如果你想获取原始数据,那么比如通过URI->query_form或类似的方法作为序列化的初始化器？或者有没有更好的方法来实现这个内置于穆斯？

UPDATE

通过在上面的行,标题,甚至标签中删除小字序列化,我看起来一直在引导人们走错路.请注意,我对查找序列化程序不感兴趣.在我的示例中,URI模块是序列化程序.问题是如何获取要提供的数据URI->query_form(或者我可能尝试的任何其他序列化程序).所以我想知道的是,对于给定的Moose对象$object,是否可以通过仅取消引用对象引用来获取数据(键和值,或者,如果您愿意,还可以获取属性名称和值),如同%$object？只要对象不包含任何引用值(如数组引用,其他对象等)以及 - 我不确定的事情 - Moose赢了,如果我迄今为止收集的经验是可行的,这将有效.不要使用实例引用来存储自己的数据,比如__MOOSE_WHATNOT => $funky_moose_addon.那么Moose可能会使用实例引用来存储它自己的一些数据,还是被设计排除？

更新2

要回答标题中的问题:

不,这不是好使用%$object来获得在穆斯对象的数据,即使它不包含任何参考值,所以你会得到的字符串和数字组成的一个副本$object.这不好,因为它破坏了封装.它甚至可能导致运行时错误,因为虽然散列是构成Moose对象基础的默认数据结构,但不能保证它总是一个散列,实际上它可能是其他东西.

您应该使用MooseX::Storage,这将为对象提供pack方法.

Answer 1

Moose"native"方式是使用MooseX :: Storage类.

Answer 2

正如jira所说,规范的方式是使用MooseX::Storage.%$ object的问题在于,虽然Moose对象实例的默认存储是一个有福的哈希,但Moose没有做出正式承诺,总是如此.例如,MooseX :: GlobRef,MooseX :: NonMoose,MooseX :: InsideOut都允许使用替代实例结构.

像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 );