原型不匹配错误(perl)

Prototype mismatch: sub main::from_json: none vs ($@) at mymodule.pm line 6.
Prototype mismatch: sub main::to_json: none vs ($@) at mymodule.pm line 6.

另外出现这种情况的是当你加载的其他模块定义了一个from_json / to_json.最近几次碰到的例子就是舞者.如果你有一个包

package Foo;

use Dancer qw/:syntax/;
use JSON;

1;

你会得到那个警告,因为(显然)Dancer带有：syntax import将一个from_json和to_json放入你的命名空间.

在这种情况下的一个快速解决方案是只是从JSON中明确导入：

package Foo;

use Dancer qw/:syntax/;
use JSON qw//;

1;

然后在你的代码中,你将需要使用完整的包名来获取JSON的subs,如下所示：

@H_995_2@my $hash = JSON::from_json('{"bob":"sally"}');

在这种情况下,您可以使用完整的软件包名称,这样就可以清楚你所获得的功能 – 有多个to_json / from_json的声明,所以我们来清楚一下我们的意思.

如果将以下内容放在Foo.pm中,并运行“perl Foo.pm”,使用和不使用qw //后使用JSON,您可以看到它的工作原理：

package Foo;

use Dancer qw/:syntax/;
use JSON qw//;

print Dumper( JSON::from_json('{"bob":"sally"}') ); use Data::Dumper;

1;