Question

如何在Perl中循环遍历类的所有方法？是否有任何关于Perl内省或反思的在线参考？

Answer 1

Todd Gardner给出使用Moose的建议很好，但他选择的示例代码并不是很有帮助。

如果您正在检查非Moose使用课程，您可以执行以下操作：

use Some::Class;
use Class::MOP;

my $meta = Class::MOP::Class->initialize('Some::Class');

for my $meth ( $meta->get_all_methods ) {
    print $meth->fully_qualified_name, "\n";
}

有关如何进行内省的详细信息，请参阅Class::MOP::Class docs。

你还会注意到我使用了Class :: MOP而不是Moose。 Class :: MOP（MOP =元对象协议）是Moose构建的基础。如果您正在使用非Moose课程，使用Moose进行内省并不能获得任何好处。

如果您愿意，可以use Moose ()和Moose::Meta::Class->initialize代替CMOP。

Answer 2

您可以使用已提供的答案轻松获取类的已定义方法的列表。但是，Perl是一种动态语言，这意味着可以在以后定义更多方法。实际上没有办法获得任何特定类将处理的所有方法的列表。关于这类内容的更多细节，我在Mastering Perl中有几章。

人们在不告诉你有关限制的情况下给你（并且提出）答案。

Adam提及他的Class::Inspector，但它并没有真正起作用，因为它试图做一些动态语言不能做的事情（那是静态的:)例如，这里是一个片段，其中Class :: Inspector不返回任何方法，但我仍然可以调用VERSION方法（以及isa和can）：

    BEGIN {

package Foo;

our $VERSION = '1.23'
}

use Class::Inspector;

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

print "Methods are [@$methods]\n"; # reports nothing

print Foo->VERSION, "\n";

这是我可以调用任何我喜欢的方法的另一种情况，但Class :: Inspector只返回AUTOLOAD（仍然缺少VERSION，isa和can）：

BEGIN {

package Foo;

our $VERSION = '1.23';

my $object = bless {}, __PACKAGE__;

sub AUTOLOAD { $object }

}

use Class::Inspector;

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

print "Methods are [@$methods]\n"; # reports only "AUTOLOAD"

print Foo->dog->cat->bird, "\n";

奇怪的是，每个人似乎都忽略了UNIVERSAL，可能是因为他们没有明确地处理它，因为它实际上只是在@ISA中。我可以为每个类添加一个debug方法，而Class :: Inspector仍然会错过它，即使它是一个已定义的方法：

BEGIN {

sub UNIVERSAL::debug { "Hello debugger!\n" }    
package Foo;
}

use Class::Inspector;

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

print "Methods are [@$methods]\n"; # still reports nothing

print Foo->debug, "\n";

Class::MOP也有同样的限制。

并非每个模块都会使用AUTOLOAD，但它也不是一个模糊或罕见的功能。如果你不介意你会错过一些方法，那么Class :: Inspector或Class :: MOP可能没问题。它不会给你一个列表，列出你可以在每种情况下调用类或对象的每个方法。

如果您有类或对象，并且想要知道是否可以调用特定方法，请使用can（）。将它包装在一个eval块中，这样可以在那些甚至不是对象的东西上调用can（），在这些情况下仍然可以返回false，而不是死亡：

if( eval { $object->can( 'method_name' ) } )
    {
    $object->( @args );
    }

Answer 3

在一般情况下，您必须检查符号表（除非您使用Moose）。例如，列出IO::File包中定义的方法：

use IO::File;
no strict 'refs';
print join ', ', grep { defined &{"IO::File::$_"} } keys %{IO::File::};

哈希%{IO::File::}是IO::File package的符号表，grep过滤掉非子例程条目（例如包变量）。

要扩展它以包含继承的方法，您必须递归搜索父类的符号表（@IO::File::ISA）。

这是一个完整的例子：

sub list_methods_for_class {
    my $class = shift;
    eval "require $class";
    no strict 'refs';
    my @methods = grep { defined &{$class . "::$_"} } keys %{$class . "::"};
    push @methods, list_methods_for_class($_) foreach @{$class . "::ISA"};
    return @methods;
}

有关包和符号表的更多信息，请参阅perlmod手册页。

Answer 4

取决于您的意思，任何课程，或者您是否实施自己的课程。对于后者，我使用Moose，它为这些功能提供了非常简洁的语法。来自食谱：

my %attributes = %{ $self->meta->get_attribute_map };
for my $name ( sort keys %attributes ) {
   my $attribute = $attributes{$name};

   if (   $attribute->does('MyApp::Meta::Attribute::Trait::Labeled')
   # ... keeps on

Answer 5

您可能需要Class :: Inspector-＆gt;方法（'Your :: Class'）。

努夫说。

Answer 6

当我忘记它时，我会把它留在这里。这非常强大;太糟糕了，大多数Perl程序员都无法体验它。

package Foo;
use strict;
sub foo1 {};
sub foo2 {};
our $foo3 = sub{};
my $foo4 = "hello, world!";

package Bar;
use strict;

# woo, we're javascript!
(sub {
    *Bar::foo1 = sub { print "hi!"; };
    *Bar::foo2 = sub { print "hello!"; };
    $Bar::foo1 = 200;
})->();

package main;
use strict;
use Data::Dumper;      
$Data::Dumper::Deparse = 1;

print Dumper \%Data::Dumper::;
print Dumper \%Foo::;
print Dumper \%Bar::;

如何在Perl中循环遍历类的所有方法？

6 个答案: