如何在Perl中循环遍历类的所有方法?是否有任何关于Perl内省或反思的在线参考?
答案 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
方法(以及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 );
}
答案 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::;