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的出口.