如何让Perl从指定本地目录加载Devel::Confess模块？

当前脚本所在目录/home/con/nwchem/ionize/nwchem.info/下有三个模块文件：DDP.pm、JSON.pm、Confess.pm，但脚本加载Devel::Confess时总是读取系统Perl库中的版本，而非本地的Confess.pm。

脚本代码 #

#!/usr/bin/env perl

use FindBin 1.51 qw( $RealBin ); # use local versions so users don't have to install
use lib "$RealBin/lib";
use strict;
use feature 'say';
use warnings FATAL => 'all';
use autodie ':default';
use Devel::Confess 'color';
use JSON 'encode_json';
use DDP {output => 'STDOUT', array_max => 10, show_memsize => 1};
#use re 'debugcolor';
use Module::Path 'module_path';

foreach my $module ('JSON', 'DDP', 'Devel::Confess') {
    my $path = module_path($module);
    if (defined($path)) {
      print "$module\t$path\n";
    } else {
      print "Danger Will Robinson!\n";
    }
}

脚本输出 #

JSON    /home/con/nwchem/ionize/nwchem.info/JSON.pm
DDP /home/con/nwchem/ionize/nwchem.info/DDP.pm
Devel::Confess  /home/con/perl5/perlbrew/perls/perl-5.40.1/lib/site_perl/5.40.1/Devel/Confess.pm

当前@INC #

[
    [0] "/home/con/nwchem/ionize/nwchem.info",
    [1] "/home/con/perl5/perlbrew/perls/perl-5.40.1/lib/site_perl/5.40.1/x86_64-linux",
    [2] "/home/con/perl5/perlbrew/perls/perl-5.40.1/lib/site_perl/5.40.1",
    [3] "/home/con/perl5/perlbrew/perls/perl-5.40.1/lib/5.40.1/x86_64-linux",
    [4] "/home/con/perl5/perlbrew/perls/perl-5.40.1/lib/5.40.1"
] (591B)

尝试过修改use lib路径、创建Devel/Confess.pm符号链接都无效，核心原因是Perl对带::的模块名的路径解析规则：Devel::Confess会被解析为Devel/Confess.pm，而非直接匹配当前目录下的Confess.pm。

方法1：调整本地模块的目录结构 #

Perl要求带命名空间的模块（如Devel::Confess）必须放在对应子目录下，执行以下操作：

1. 在当前目录创建Devel子目录：

   mkdir -p /home/con/nwchem/ionize/nwchem.info/Devel
   

2. 将本地的Confess.pm移动到该子目录：

   mv /home/con/nwchem/ionize/nwchem.info/Confess.pm /home/con/nwchem/ionize/nwchem.info/Devel/
   

调整后，Perl就能在@INC的第一个目录下找到Devel/Confess.pm，优先加载本地版本。

方法2：手动指定模块路径（不修改目录结构） #

如果不想调整目录结构，可以在use Devel::Confess之前手动加载本地模块：

#!/usr/bin/env perl

use FindBin 1.51 qw( $RealBin );
use lib "$RealBin";
use strict;
use feature 'say';
use warnings FATAL => 'all';
use autodie ':default';

# 手动加载本地Confess.pm，确保模块声明了package Devel::Confess;
do "$RealBin/Confess.pm" or die $@;
# 导入模块功能
Devel::Confess->import('color');

use JSON 'encode_json';
use DDP {output => 'STDOUT', array_max => 10, show_memsize => 1};
use Module::Path 'module_path';

foreach my $module ('JSON', 'DDP', 'Devel::Confess') {
    my $path = module_path($module);
    if (defined($path)) {
      print "$module\t$path\n";
    } else {
      print "Danger Will Robinson!\n";
    }
}

注意：这种方法要求本地的Confess.pm中必须声明package Devel::Confess;，否则会出现命名空间不匹配的问题。

方法3：强制限制加载路径（谨慎使用） #

如果需要完全屏蔽系统Perl库的干扰，可以使用lib::core::only模块（需提前安装），强制Perl只从指定目录加载模块：

use lib::core::only "$RealBin";

该方法会完全忽略系统Perl库，可能导致其他核心模块无法加载，仅适合特殊场景。

内容的提问来源于stack exchange，提问作者con