不同命名空间中的 Perl 导入包

Question

是否可以在不同的命名空间中导入(使用)perl 模块？

假设我有一个模块 A(没有方法导出的 XS 模块 @EXPORT 是空的)并且我无法更改该模块。

这个模块有一个方法 A::open

目前，我可以通过调用 A::open 在我的主程序(package main)中使用该模块 我想将该模块放入我的 package main 中，以便我可以直接调用open

我尝试手动将 %A:: 的每个键推送到 %main:: 中，但是没有按预期工作。

我知道实现我想要的唯一方法是在我的主程序中使用 package A;，有效地将我的程序包从 main 更改为 A。我对此并不满意。我真的很想将我的程序保留在 package main 中。

有什么方法可以做到这一点并且仍然将我的程序保留在 package main 中吗？

Offtopic:是的，我知道通常您不想将所有内容都导入到您的命名空间中，但我们广泛使用这个模块，我们不想键入 A::(好吧，实际的模块名称要长得多这并没有让情况变得更好)在成百上千个电话面前

Answer 1

这是一种“不可能”的情况，在这种情况下，明确的解决方案——重新设计该模块——是不可能的。

但是，您可以将该包的子名称从其符号表中别名化为main 中的相同名称。比粗鲁更糟糕的是，这带来了一个小故障:它捕获了该包本身以任何方式导入的所有名称。但是，由于此包裹是固定数量的，因此您可以建立该列表(甚至对其进行硬编码)是理所当然的。就这一次吧？

主要

use warnings;
use strict;
use feature 'say';

use OffLimits;

GET_SUBS: {
    # The list of names to be excluded
    my $re_exclude = qr/^(?:BEGIN|import)$/;  # ...
    my @subs = grep { !/$re_exclude/ } sort keys %OffLimits::;
    no strict 'refs';
    for my $sub_name (@subs) {
        *{ $sub_name } = \&{ 'OffLimits::' . $sub_name };
    }   
};
    
my $name = name('name() called from ' . __PACKAGE__);
my $id   = id('id() called from ' . __PACKAGE__);

say "name() returned: $name";
say "id()   returned: $id";

使用 OffLimits.pm

package OffLimits;    
use warnings;
use strict;

sub name { return "In " .  __PACKAGE__ . ": @_" }
sub id   { return "In " .  __PACKAGE__ . ": @_" }

1;

打印

name() returned: In OffLimits: name() called from  mainid()   returned: In OffLimits: id() called from  main

You may need that code in a BEGIN block, depending on other details.

Another option is of course to hard-code the subs to be "exported" (in @subs). Given that the module seems to be immutable in practice this option is reasonable and more reliable.

---

This can also be wrapped in a module, so that you have the normal, selective, importing.

WrapOffLimits.pm

package WrapOffLimits;
use warnings;
use strict;

use OffLimits;

use Exporter qw(import);

our @sub_names;
our @EXPORT_OK   = @sub_names;
our %EXPORT_TAGS = (all => \@sub_names);

BEGIN { 
    # Or supply a hard-coded list of all module's subs in @sub_names
    my $re_exclude = qr/^(?:BEGIN|import)$/;  # ...
    @sub_names = grep { !/$re_exclude/ } sort keys %OffLimits::;

    no strict 'refs';
    for my $sub_name (@sub_names) {
        *{ $sub_name } = \&{ 'OffLimits::' . $sub_name };
    }   
};
1;

现在在调用者中你可以只导入一些子

use WrapOffLimits qw(name);

或全部

use WrapOffLimits qw(:all);

使用与上面相同的 main 进行测试。

模块名称是硬编码的，这应该没问题，因为这仅适用于该模块。

---

添加以下内容主要是为了完整性。

可以通过编写自己的 import sub 将模块名称传递给包装器，然后使用它。导入列表也可以传递，但代价是 use 语句的笨拙接口(interface)。

它的思路是

package WrapModule;
use warnings;
use strict;

use OffLimits;

use Exporter qw();  # will need our own import 

our ($mod_name, @sub_names);

our @EXPORT_OK   = @sub_names;
our %EXPORT_TAGS = (all => \@sub_names);

sub import {
    my $mod_name = splice @_, 1, 1;  # remove mod name from @_ for goto

    my $re_exclude = qr/^(?:BEGIN|import)$/;  # etc

    no strict 'refs';
    @sub_names = grep { !/$re_exclude/ } sort keys %{ $mod_name . '::'};    
    for my $sub_name (@sub_names) {    
        *{ $sub_name } = \&{ $mod_name . '::' . $sub_name };
    }   

    push @EXPORT_OK, @sub_names;

    goto &Exporter::import;
}
1;

可以用来做什么

use WrapModule qw(OffLimits name id);  # or (OffLimits :all)

或者，将列表分解，以提醒用户注意不寻常的界面

use WrapModule 'OffLimits', qw(name id);

当与上面的 main 一起使用时，它会打印相同的输出。

use 语句最终使用了 import模块中定义的子，它通过写入调用者的符号表来导出符号。 (如果没有编写 import sub，则可以很好地使用 Exporter 的 import 方法，这通常是这样做的。)

这样我们就可以解压参数并在 use 调用时提供模块名称。随着导入列表的提供，现在我们必须手动push 到@EXPORT_OK，因为这不能在BEGIN 阶段。最后，通过(好的形式)goto 将 sub 替换为 Exporter::import , 完成作业。