相关疑难解决方法(0)

这很好用:

use if (1), 'x86_64-linux-thread-multi::Devel::Cover::DB::IO::JSON';

但不是这个:

my $a=1;
use if ($a), 'x86_64-linux-thread-multi::Devel::Cover::DB::IO::JSON';

后来打印错误Can't locate object method "new" via package "JSON" (perhaps you forgot to load "JSON"?) at ./script.pl line 100.,我$json = JSON->new;在第100行.

我使用的是Perl 5.16.2版本,有什么帮助吗？提前致谢.