perl-UNIVERSAL不导出任何内容

您好，我在尝试运行perl脚本时遇到以下错误：

pc:~/Phd/lenovo/programs/vep/scripts/variant_effect_predictor$ perl variant_effect_predictor.pl --help
UNIVERSAL does not export anything at /home/arron/Phd/lenovo/programs/vep/scripts/variant_effect_predictor/Bio/Tree/TreeFunctionsI.pm line 94.

如果违规行为：

use UNIVERSAL qw(isa)

问题是什么？

旧版本的

您可以请求导入三个功能（

isa

、

can

和

VERSION

），但此功能已弃用，将被删除。 请不要在新代码中执行此操作

最新版本只是说

出口

没有

根据以下文件：

本文档以前的版本建议使用isa作为确定参考类型的函数：

问题是，这段代码永远不会在任何类中调用重写的isa方法。相反，对于第一种情况，请使用标量：：Util中的reftype：

所以这种方法已经不存在了

use UNIVERSAL 'isa';

$yes = isa $h, "HASH";
$yes = isa "Foo", "Bar";

use Scalar::Util 'reftype';

$yes = reftype( $h ) eq "HASH";