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);

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

Perl名称空间问题：在模块中使用导出的功能不起作用

1 个答案: