Perl中如何继承不同lib路径下的同名类？

我在Perl开发中遇到一个棘手问题：需要继承不同lib路径下的同名类（相同包名）。Perl解析继承关系时只识别包名，不区分lib路径，调整@INC顺序也没解决问题。

我的尝试 #

模块结构：

• 主目录下的Kernel::Module1
• Custom/目录下的另一个Kernel::Module1

main.pl代码：

use lib '.';
use lib './Custom';
use Kernel::Module1;

Custom目录下的模块代码：

{
  local @INC = ('.', @INC);
  use base 'Kernel::Module1';
}

执行后报错：

Class 'Kernel::Module1' tried to inherit from itself.

可行解决方法 #

Perl的包名属于全局命名空间，同名包加载后会被覆盖，直接通过包名继承走不通，推荐以下几种思路：

1. 直接加载模块文件而非依赖包名

在Custom/Kernel/Module1.pm中，跳过包名查找，直接加载主目录的模块文件：

# 用require指定文件路径，确保路径正确
require './Kernel/Module1.pm' or die "Failed to load base module: $!";
# 设置继承关系
our @ISA = qw(Kernel::Module1);

如果路径不确定，建议使用绝对路径，避免因执行目录变化导致加载失败。

2. 修改其中一个模块的包名

如果允许修改代码，把Custom下的模块包名改为唯一标识，比如Custom::Kernel::Module1：
Custom/Kernel/Module1.pm内容调整为：

package Custom::Kernel::Module1;
use base 'Kernel::Module1';
# 原模块逻辑代码...

之后在main.pl中按需加载对应包：

use lib '.';
use lib './Custom';
# 加载主目录模块
use Kernel::Module1;
# 加载Custom下的自定义模块
use Custom::Kernel::Module1;

3. 动态创建命名空间分离模块

针对无法修改包名的场景，可以通过动态命名空间加载不同路径的模块：

# 加载主目录模块到独立命名空间
{
    local @INC = ('.');
    package Main::Kernel::Module1;
    require Kernel::Module1;
}

# 加载Custom模块并继承主目录版本
{
    local @INC = ('./Custom');
    package Custom::Kernel::Module1;
    require Kernel::Module1;
    our @ISA = qw(Main::Kernel::Module1);
}

这种方式能保留原包名的逻辑，但需要手动管理命名空间，适合复杂场景。

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