是否有可能爲特定的Perl類獲取所有有效的方法？

Question

是否有可能獲得特定Perl類的所有有效方法？

我想操縱一個類的符號表並獲得它的所有方法。我發現我可以通過$obj->can($method)從非子程序中分離出子程序，但這並不完全符合我的想法。

以下回報：

subroutine, Property, croak, Group, confess, carp, File 

然而，subroutine不是方法，（只是一個子程序），並croak，confess，並都導入到我的包。

我真正想要打印的是：

Property,Group, File 

但我會採取：

subroutine, Property,Group, File 

下面是我的程序：

#! /usr/bin/env perl 

use strict; 
use warnings; 
use feature qw(say); 

my $sections = Section_group->new; 
say join ", ", $sections->Sections; 

package Section_group; 
use Carp; 

sub new  { 
    return bless {}, shift; 
} 

sub Add { 
    my $self    = shift; 
    my $section    = shift; 
} 

sub Sections { 
    my $self    = shift; 

    my @sections; 
    for my $symbol (keys %Section_group::) { 
     next if $symbol eq "new"; # This is a constructor 
     next if $symbol eq "Add"; # Not interested in this method 
     next if $symbol eq "Sections";  # This is it's own method 
     push @sections, $symbol if $self->can($symbol); 
    } 

    return wantarray ? @sections : \@sections; 
} 

sub subroutine { 
    my $param1    = shift; 
    my $param2    = shift; 
} 

sub Group { 
    my $self    = shift; 
    my $section    = shift; 
} 

sub File { 
    my $self    = shift; 
    my $section    = shift; 
} 

sub Property { 
    my $self    = shift; 
    my $section    = shift; 
} 

Answer 1

這是相當瑣碎。我們只想保留最初在我們的軟件包中定義的那些子名稱。每個CV（代碼值）都有一個指向定義它的包的指針。由於B，我們可以檢查：

use B(); 

... 

if (my $coderef = $self->can($symbol)) { 
    my $cv = B::svref_2object $coderef; 
    push @sections, $symbol if $cv->STASH->NAME eq __PACKAGE__; 
} 

# Output as wanted 

也就是說，我們使用svref_2object進行反省。這將返回一個表示內部perl數據結構的Perl對象。

如果我們查看一個coderef，我們得到一個B::CV object，它代表內部CV。 CV中的STASH字段指向其定義的Stash。如您所知，Stash只是一個特殊的散列（內部表示爲HV），因此$cv->STASH返回B::HV。 HV的NAME字段包含HV爲Stash且不是常規散列的Stash的完全限定軟件包名稱。

現在我們有我們需要的所有信息，並且可以比較想要的包名稱和coderef的存儲名稱。

當然，這是簡化的，你會想通過@ISA一般類的遞歸。

---

沒有人喜歡污染的命名空間。值得慶幸的是，有一些模塊可以從存儲器中移除外來符號，例如namespace::clean。在編譯時知道所有正在調用的子程序的CV時，這是沒有問題的。

Answer 2

你想做什麼？爲什麼一個類如何定義或實現它所響應的方法？

Perl是一種動態語言，所以這意味着方法根本不必存在。與AUTOLOAD，一種方法可能是完美的，可調用的，但從不出現在符號表中。一個好的界面會使can在這些情況下工作，但可能會出現類或對象決定用false來響應的情況。

Package::Stash模塊可以幫助您在特定命名空間中查找已定義的子例程，但正如您所說，它們可能未在同一個文件中定義。類中的方法可能來自繼承的類。如果你關心他們來自哪裏，你可能做錯了。