如何将 Moose 对象转换为 JSON 以在 Catalyst 中使用？

Question

我有一系列 Moose 对象，我希望将其提供给 JSON::XS 通过 Catalyst::View::JSON。 JSON::XS 无法对受祝福的数据结构进行编码。我知道有 MooseX： :Storage::Format::JSON 可以——有点——做我想做的事；但是，它似乎太重了。我正在寻找的信息基本上与 XXX.pm 相同 提供。我只是希望原始数据结构递归地不受祝福，所以 JSON::XS （JSON::Any 的驱动程序 C:V:JSON内部使用）可以显示它。

将 Catalyst::View::JSON 和 JSON::XS 与 Moose 对象一起使用的最佳方法是什么？看来我有四个明显的选择：

1. 通过修补 C:V:JSON 来读取 freeze<，使 Catalyst::View::JSON 与 Moose 对象一起工作。 /code> 如果暴露的参数是 Moose 对象，则完成请求。
2. 修补 JSON::XS 以回退到返回 $obj->freeze if $obj->isa('Moose') && 的值$obj->does('MooseX::Storage::Format::JSON')。我应该查看 MX:S:F:JSON 来确保 JSON::Any 和代理 MX:S:F: 使用的类JSON 是 JSON::XS （如果 JSON::Any 为 Moose 对象选择了不同的内部编码器，就会产生大量错误，JSON::XS 来使用。
3. 调用
4. > :View::JSON 只需写入 STDOUT $obj->freeze 并手动完成请求。

我确信还有一些其他选项 。 ，有什么想法吗？

Answer 1

我倾向于使用 MooseX::Storage 来执行选项 3，以提供一个 pack() 方法，该方法返回一个 Perl 数据结构，我可以将其填充到我的存储中，以便 View 可以根据需要呈现它。

另请注意，可以强制 JSON::Any（通过环境，或通过将适当的参数传递给 import()）来选择特定的后端。这就是测试套件的工作原理，并且已记录在案。

Answer 2

如果您不关心完全取消对象的祝福并使其完全无法使用（从 Moose 的角度来看），请尝试从 Data::Structure::Util 取消祝福。

我个人更喜欢 MooseX::Storage 以获得更优雅和可持续的解决方案。

Answer 3

不管喜欢还是讨厌，我的最终解决方案是恢复到现在已弃用的 JSON::Syck 正是我想要的。以下是逻辑非 Moose 序列化为 JSON 的快速非 Moose 示例。

use JSON::Syck;
use URI;
use feature ':5.10';
say JSON::Syck::Dump(
 bless { foo => URI->new("http://www.evancarroll.com") }
)

我给作者写了关于 JSON::XS 他不喜欢添加功能。以下是来自 的一些文本（从大量消息中断章取义，以说明为什么不存在此功能） JSON::XS 维护者 Marc Lehmann：

不，因为您正在使用JSON并且
不是 Perl。 Perl 显然有能力
表示任何 Perl 数据
结构，但 JSON 不是，所以你
需要告诉它做什么。许多
人们天真地要求类似的东西
“只是转储数据结构”，但是
JSON甚至不能代表所有perl
非对象的数据结构。

...

你的问题就像：为什么我不能
将此 1MB jpeg 图像作为 ascii 文件发送
- 只是因为 ascii 不能代表八位字节。

...

或者也许你只是想扔
一些垃圾，并期望 JSON::XS
做对你有利（但错误）的事情
对于其他人） - 根本没有
JSON::XS 神奇猜测的方式
你想要什么。

...

就是TO_JSON。其他的都只是
胡乱猜测。

...

那么也许你应该尝试一下
JSON其实可以表示。投掷
一些对象层次结构并希望
它会做“正确的事”是
明显糟糕的软件工程 - 尝试
当你的协议
需要 JSON，然后发送 JSON，不需要
期望 json 库能够修复你的问题
首先无效消息。

我不知道该如何回应，除了“我不在乎”。只是工作！喜欢::SYCK。我不期望对象能够完美地转换为 JSON。但是，我想我属于那 80% 只想让它发挥作用的人。我使用 JSON 进行 jQuery 导入，而不是在脑部手术期间执行银行交易。最终，我不想使用特殊的角色...我希望发送给它的任何内容都能神奇地转换到一定程度，使其在响应 jQuery JSON 请求时有用。

更新

抱歉，我错过了这些回复，直到有人说我在不相关的媒体上进行恶搞。 MooseX::Storage 不适用于非 Moose 类，我想要一种以 JSON 格式表示存储的通用方法。不幸的是，其中一些藏品成员是 Moose 对象。 XML::Simple 可以做到这一点，Data::Dumper 可以做到这一点，JSON::Syck 可以做到这一点，这样的例子不胜枚举——我只想完成它。它不必与 Perl 1:1，说实话，我希望它的完成方式与 JSON::Syck 默认情况下的方式相当接近。那么我在这里的论点是，“如何让 JSON::XS 完全像 JSON::Syck 目前那样工作”？而且，你的答案是你不能。所以我没有采用不同的解决方案。编写代码需要花钱，如果 Syck 已经做得对了，为什么我要编写 to_JSON...我想说的是，反对者有责任展示 Syck 正在序列化的内容时尚是不可取的。另外，请记住 JSON::Syck 是由 Audry 播种的，他绝不是一个巨魔、白痴或“大脑受损”；或者，任何其他向我抛出的术语。我将以此结束：缺少 JSON::Syck 的错误序列化路线以及所需的输出已经正在工作使我相信这是一个不错的选择我。而且，MooseX::*:JSON 对任意 Moose 对象有何不同的作用？为什么你认为不能编写代码来接受 Moose 对象而不是它的方法？如果你不这么认为，请用一些实质性的东西来回答——我希望看到更好的回应。谢谢。 （针对@jrockway和@Ether）