perl：从具有> 1个包的模块导出符号

发布时间：2020-12-15 21:53:47 所属栏目：大数据来源：网络整理

导读：module foo / bar.pm package foo::bar;stuffstuffpackage foo::wizzy;require Exporter;our @ISA=qw(Exporter);our @EXPORT=qw(x);use constant{ x=1}; 这样做的消费者 use Foo::bar; 不会得到foo :: wizzy :: x导出我知道我可以把它作为两个独立的模块,但

module foo / bar.pm

package foo::bar;
stuff
stuff
package foo::wizzy;
require Exporter;
our @ISA=qw(Exporter);
our @EXPORT=qw(x);
use constant
{
  x=>1
};

这样做的消费者

use Foo::bar;

不会得到foo :: wizzy :: x导出

我知道我可以把它作为两个独立的模块,但我仍然可以做到这一点,不是吗？

解决方法

在模块的最后,放：

BEGIN { $INC{'foo/wizzy.pm'} = 1 }

然后代码可以说：

use foo::bar;
use foo::wizzy;

得到foo :: wizzy的出口.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

perl：从具有&gt; 1个包的模块导出符号

解决方法

perl：从具有> 1个包的模块导出符号