Perl 函数名称冲突

Question

我遇到的情况是，我正在使用的模块有一个函数，其名称与我自己的模块中的函数完全相同。当我尝试调用模块中的函数（OO Perl，因此 $self->function）时，它会从其他模块调用该函数。

我已经通过重命名我的函数来解决这个问题，但有趣的是，有什么方法可以从我的模块中显式调用该函数吗？

编辑： 这本质上就是我正在做的事情

package Provider::WTO;

use base qw(Provider); # Provider contains a method called date

use utilities::utils; #not my module so don't blame me for the horrendous name :-)
...
sub _get_location
{
    my $self = shift;
    return $self->date."/some_other_string"; # calls utilities::utils::date()
}

Answer 1

如果名称冲突是由另一个模块的导入引起的，您可以考虑使用 Sub::Import，它允许轻松重命名导入，即使导出模块没有明确支持该操作，或者 <代码>命名空间::autoclean/命名空间::clean。

package YourPackage;

use Sub::Import 'Some::Module' => (
    foo => { -as => 'moo' },
); # imports foo as moo

sub foo { # your own foo()
    return moo() * 2; # call Some::Module::foo() as moo()
}

仅当导入使用函数遮蔽任何方法时，命名空间清理模块才会有帮助，而不是在其他情况下：

package YourPackage;

use Some::Module; # imports foo
use Method::Signatures::Simple
use namespace::autoclean; # or use namespace::clean -except => 'meta';

method foo {
    return foo() * 2; # call imported thing as a function
}

method bar {
    return $self->foo; # call own foo() as a method
}

1;

这样，当对 foo() 的函数调用已经存在时，导入的函数将在编译模块后被删除绑定到进口。稍后，在模块运行时，将安装一个名为 foo 的方法。方法解析总是在运行时发生，因此任何对 ->foo 的方法调用都将解析为您自己的方法。

或者，您始终可以通过函数的完全限定名称来调用函数，而不导入它。

use Some::Module ();
Some::Module::foo();

这也可以对方法完成，完全禁用运行时方法查找：

$obj->Some::Module::foo();

但是，需要这样做通常是设计不良的标志，您可能应该退后一步，解释一下您首先做了什么才让您陷入这种情况。

Answer 2

您是否需要有问题的模块中的子例程？在不了解更多信息的情况下，我认为快速解决方法是明确不使用空导入列表导入它：

 use Interfering::Module ();

如果您需要其他导入的内容，您可以指定您需要的内容：

 use Interfering::Module qw(sub1 sub2);

如果您想要的导出列表非常长，您可以排除干扰子例程：

 use Interfering::Module qw(!bad_sub);

如果这些都不起作用，您将不得不更多地了解干扰模块。

Answer 3

您确定这是在方法调用（即 $self->function）中发生的而不是常规调用吗？

如果是这种情况，那么我能看到发生这种情况的唯一方法是您的模块正在扩展另一个模块，并且您没有定义有问题的方法，并且您正在扩展的模块定义了一个与您尝试调用的方法同名的函数。

无论如何，您都无法使用 useforeign::Module () 将有问题的函数导入到您的命名空间中。

如果这是一个被破坏的常规函数​​调用，您可以将其称为 Your::Module->function。