如何在 Perl 中列出给定对象或包的可用方法？

Question

如何在 Perl 中列出给定对象或包的可用方法？

Answer 1

在 Perl 中（相当多）有很多方法可以做到这一点，因为在 Perl 中有很多方法可以做事情。 正如有人评论的那样，自动加载的方法总是有点棘手。 但是，我建议您不要采用自己的方法，而是查看 Class::Inspector。 这会让你做类似的事情：

my $methods =   Class::Inspector->methods( 'Foo::Class', 'full', 'public' );

Answer 2

一个很好的答案如何获取结构和继承历史
可以使用以下命令找到对象类当前继承的类：

use mro          qw( );
use Scalar::Util qw( blessed );
say join ", ", @{ mro::get_linear_isa(blessed($o)) };

Answer 3

一般来说，您无法使用像 Perl 这样的动态语言来做到这一点。 该包可能定义了一些您可以找到的方法，但它也可以动态地构建在您使用它们之前没有定义的方法。 此外，即使调用一个方法（有效）也可能无法定义它。 这就是让动态语言变得美好的原因。 :)

你想解决什么任务？

Answer 4

如果您有一个使用 Moose 的软件包，

print PackageNameHere->meta->dump;

那么它相当简单： 对于更完整的数据：

use Data::Dumper;
print Dumper( PackageNameHere->meta ); 

将帮助您入门。 对于其他所有内容，->meta 上显示的方法记录在 Class::MOP::Class

您可以对没有它的包进行一些 AdHoc 伪装，使用：

use Class::MOP::Class;
my $meta = Class::MOP::Class->initialize( PackageNameHere );

，然后继续使用 Class::MOP 方法，就像使用 Moose 一样。

对于初学者：

 $meta->get_method_map(); 

使用 Moose； #，它太棒了。

Answer 5

如果您有一个名为 Foo 的包，应该这样做：

no strict 'refs';
for(keys %Foo::) { # All the symbols in Foo's symbol table
  print "$_\n" if exists &{"Foo::$_"}; # check if symbol is method
}
use strict 'refs';

或者，获取包 Foo 中所有方法的列表：

no strict 'refs';
my @methods = grep { defined &{"Foo::$_"} } keys %Foo::;
use strict 'refs';