perl - 如何在 Perl 中执行自省(introspection)？

Question

在 Perl OOP 中，如何转储此类及其父类中的所有方法/字段。

my ($self) = @_;

我看到了很多上面的构造函数。那么，@_ 是什么？ ?

我有 Java/OOP 背景。如果您的解释可以遵循Java领域，我会更容易理解。

Answer 1

什么是@_ ?见 perldoc -v @_

perldoc perlobj

mjd has an interesting article on introspection in Perl .

此外，How do I list available methods on a given object or package in Perl?回答你的部分问题。

我对该问题的首选答案是 Class::Inspector :

#!/usr/bin/env perl

use strict; use warnings;

use Class::Inspector;
use HTML::TokeParser::Simple;

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

print "Methods:\n";
print "$_\n" for @$methods;

print "Superclasses\n";
use Class::ISA;
print join(", ", Class::ISA::super_path('HTML::TokeParser::Simple')), "\n";