perl - 确定 Moose 属性和方法是从哪里继承的？

Question

我经常在我工作的地方开发一个巨大的、文档不完善的、面向对象的 Perl 存储库。在维护代码时，我经常需要跟踪从其他类继承的内容，以便我可以了解它们在做什么。例如，我需要弄清楚 $self->mystery 是什么以及它在做什么:

package Foo::Bar;
use Moose;
use Method::Signatures;
use Foo::Bar::Element;
use Foo::Bar::Function;
use base qw (Baz::Foo::Bar);

method do_stuff ($some_arg) {
    # mystery is not defined in Foo::Bar
    my $mystery = $self->mystery;
    $mystery->another_mystery($some_arg);
}

我通常发现自己花费了太多时间来跟踪父类。所以我的问题是，有没有一种简单的方法可以让我弄清楚 $self->mystery 来自哪里？或者换句话说，我需要找到哪里宣告了神秘。

我所说的“简单方法”并不是指使用 ack 或 grep 通过文件进行字符串搜索。我希望我可以安装和使用某种调试模块，这可以帮助我获得一些见解。

谢谢。

Answer 1

感谢标准 Perl 。 。 。 comes_from 方法!

你不需要下载任何特殊的工具或模块，更不用说一些巨大的 IDE，因为你的未记录的类结构已经变得太复杂了，如果没有庞大的 IDE，人类根本无法理解。

为什么不呢？简单: 标准 Perl 包含获得所需答案所需的一切。找出某物来自何处的简单方法是使用非常有用的 comes_from 方法:

$origin        = $self->comes_from("mystery");
$secret_origin = $self->comes_from("another_mystery");
$birthplace    = Some::Class->comes_from("method_name");

这将返回该方法将解析为的子例程的原始名称。如您所见，comes_from 既可以用作对象方法，也可以用作类方法，就像 can 和 isa 一样。

请注意，当我说它解析的子例程的名称时，我的意思是该子例程最初创建的位置，早在任何导入或继承之前。例如，这段代码:

use v5.10.1;
use Path::Router;
my($what, $method) = qw(Path::Router dump);
say "$what->$method is really ", $what->comes_from($method);

打印输出:

Path::Router->dump is really Moose::Object::dump

类似的调用还会显示以下内容:

Net::SMTP->mail     is really Net::SMTP::mail
Net::SMTP->status   is really Net::Cmd::status
Net::SMTP->error    is really IO::Handle::error

它在普通的 ole 子例程上也能正常工作:

SQL::Translator::Parser::Storable->normalize_name 
 is really SQL::Translator::Utils::normalize_name

可爱的comes_from方法并不是完全内置的，尽管它不需要标准Perl之外的任何东西。为了让您和您的所有类、对象等都可以访问它，只需在某处添加这段代码即可 - 您真正喜欢的任何地方:)

sub UNIVERSAL::comes_from($$) {
    require B;
    my($invocant, $invoke) = @_;
    my $coderef  = $invocant->can($invoke) || return;
    my $cv       = B::svref_2object($coderef);
    return unless $cv->isa("B::CV");            
    my $gv       = $cv->GV;
    return if $gv->isa("B::SPECIAL");
    my $subname  = $gv->NAME;
    my $packname = $gv->STASH->NAME;
    return $packname . "::" . $subname;
}

通过将其声明为 UNIVERSAL 子项，现在每个人都可以使用它，就像他们使用 can 和 isa 一样。享受吧!