有没有办法用JSON Perl模块编码对象构造函数？

Question

所有,

我正在使用JSON Perl模块来编码JSON.

我希望生成的JSON包含这样的行:

{
   "startDate": new Date(2010,11,15,0,0),
   "aString"  : "String Data",
   "aNumber"  : 1234
}

为了创建它,我有一个像这样的Perl HASHREF:

{
   startDate => SEE BELOW,
   aString   => "String Data",
   aNumber   => 1234,
}

这里是我的问题:我无法弄清楚如何将JSON模块对象转换成打印不带引号的字符串,这样我可以有我的new Date(...)实例调用.我尝试使用TO_JSON方法创建一个Perl模块,但输出仍然被引用.

有没有人建议我如何鼓励JSON打印不带引号的字符串？

Answer 1

JSON并不意味着对这样的对象进行编码.它编码简单的数据结构,如数组和散列.如果您希望使用该反序列化数据来填充受祝福的对象,则需要在顶部添加另一个图层.

对于Moose对象,插件MooseX :: Storage专为此目的而构建.