Perl 命名空间问题 : using exported functions in modules not working

Question

我在一个小的 Perl 模块中打包了一些常用函数，我在脚本中使用

use lib path/to/lib

在模块文件中，我导入了一些其他系统安装的模块(例如 Carp qw(confess) ，但我不能直接调用 confess，而是调用 Carp::confess ，这对我来说很不寻常。

这是我的(非)工作示例:
https://github.com/telatin/bioinfo/blob/master/mini/script.pl

use 5.012;
use FindBin qw($Bin);
use lib "$Bin/Demo/lib";
use Local::Module;

say "Version: ", $Local::Module::VERSION;

Local::Module->new();

模块: https://github.com/telatin/bioinfo/blob/master/mini/Demo/lib/Local/Module.pm

use 5.012;
use warnings;
use Carp qw(confess);
package Local::Module;
$Local::Module::VERSION = 2;


sub new {
    my ($class, $args) = @_;
    my $self = {
        debug   => $args->{debug}, 
    };
    my $object = bless $self, $class;

    confess "Unable to create fake object";
    return $object;
}

1;

我应该在 .pm 文件中做什么来避免这个问题？

Answer 1

问题在这里:

use 5.012;
use warnings;
use Carp qw(confess);
package Local::Module;

首先加载 Carp并导入 confess ，但此时您仍在包中 main , 所以 confess被导入 main .

然后你用 package Local::Module 切换包，但没有 confess这里定义的函数。

您需要先切换包:

package Local::Module;
use 5.012;
use warnings;
use Carp qw(confess);

现在所有导入和所有以下代码都在同一个包中。