为什么我会得到“用法：JSON :: XS :: new（klass）”错误？

Question

此行
my $json = new JSON(autoconv => 0); # <-- line X
引发此错误

Usage: JSON::XS::new(klass) at (...) line X 

有什么不对？

这是一个跟进我的问题Is there a way to force quotation of numbers in JSON 1.x Perl module?

Answer 1

JSON模块changed substantially在1.15和2.00之间的API。为JSON 1.x编写的代码不一定适用于JSON 2.x.特别是，1.x构造函数带有可选参数。 2.x构造函数不带任何参数;相反，你在构建之后使用了mutator函数。

如果你必须支持某种原因，既JSON 1.x和2.x，你需要检查是否JSON->VERSION < 2（实际上JSON->VERSION < 1.99如果算上2.X API的开发版本），并有两个版本你的代码，一个用于1.x API和一个用于2.x.

Answer 2

尝试：

my $json = JSON::XS->new; 

我没有看到任何autoconv在任何JSON或JSON::XS任何地方，但JSON确实这样说：

$ JSON :: AUTOCONVERT

不消。 JSON后端模块具有往返完整性。