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

前端之家收集整理的这篇文章主要介绍了perl:从具有> 1个包的模块导出符号前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
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的出口.

原文链接:https://www.f2er.com/Perl/171968.html

猜你在找的Perl相关文章