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

时间:2009-06-20 14:23:13

标签: perl reflection introspection

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

6 个答案:

答案 0 :(得分:13)

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。

答案 1 :(得分:10)

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

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

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

    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(仍然缺少VERSIONisacan) :

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 );
    }

答案 2 :(得分:5)

在一般情况下,您必须检查符号表(除非您使用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手册页。

答案 3 :(得分:3)

取决于您的意思,任何课程,或者您是否实施自己的课程。对于后者,我使用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

答案 4 :(得分:3)

您可能需要Class :: Inspector->方法('Your :: Class')。

努夫说。

答案 5 :(得分:0)

当我忘记它时,我会把它留在这里。这非常强大;太糟糕了,大多数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::;