Có thể nhận tất cả các phương thức hợp lệ cho một lớp Perl cụ thể không?

Question

Có thể nhận tất cả các phương thức hợp lệ cho một lớp Perl cụ thể không?

Tôi đang cố gắng thao tác bảng biểu tượng của một lớp và nhận tất cả các phương pháp của nó. Tôi tìm thấy tôi có thể tách ra các chương trình con từ các chương trình con không thông qua các $obj->can($method), nhưng điều đó không làm chính xác những gì tôi nghĩ rằng nó.

Lợi nhuận sau:

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

Tuy nhiên, subroutine không phải là một phương pháp, (chỉ là một chương trình con), và croak, confess và đều được nhập khẩu vào gói của tôi.

Những gì tôi thực sự muốn in ra là:

Property,Group, File 

Nhưng tôi sẽ thực hiện:

subroutine, Property,Group, File 

Dưới đây là chương trình của tôi:

#! /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

này là khá tầm thường. Chúng tôi chỉ muốn giữ những tên phụ đã được định nghĩa ban đầu trong gói của chúng tôi. Mỗi CV (giá trị mã) có một con trỏ tới gói mà nó được định nghĩa. Nhờ B, chúng ta có thể xem xét rằng:

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 

Đó là, chúng tôi thực hiện mẫn sử dụng svref_2object. Điều này trả về một đối tượng Perl đại diện cho một cấu trúc dữ liệu perl nội bộ.

Nếu chúng ta nhìn vào một coderef, chúng tôi nhận được một B::CV object, đại diện cho nội bộ CV. Trường STASH trong một điểm CV tới Stash nơi nó được xác định. Như bạn đã biết, Stash chỉ là một băm đặc biệt (được biểu thị bên trong là HV), do đó, $cv->STASH trả về một B::HV. Trường NAME của HV chứa tên gói đầy đủ của Stash nếu HV là Stash và không phải là băm thông thường.

Bây giờ chúng tôi có tất cả thông tin chúng tôi cần và có thể so sánh tên gói mong muốn với tên của stash của coderef.

Tất nhiên, điều này được đơn giản hóa và bạn sẽ muốn xem xét lại thông qua @ISA cho các lớp học chung.

---

Không ai thích không gian tên bị ô nhiễm. Rất may, có các mô-đun xóa ký hiệu nước ngoài khỏi Stash, ví dụ: namespace::clean. Đây là không có vấn đề khi các CV của tất cả các subs bạn đang gọi được biết đến tại thời gian biên dịch.

Answer 2

Bạn đang cố gắng làm gì? Tại sao nó lại quan trọng như thế nào một lớp được định nghĩa hoặc thực hiện một phương thức mà nó phản hồi?

Perl là ngôn ngữ động, do đó điều đó có nghĩa là các phương thức không cần phải tồn tại. Với AUTOLOAD, một phương pháp có thể hoàn toàn tốt đẹp và có thể gọi được, nhưng không bao giờ hiển thị trong bảng biểu tượng. Một giao diện tốt sẽ làm cho can hoạt động trong những trường hợp đó, nhưng có thể có trường hợp một lớp hoặc một đối tượng quyết định trả lời điều đó bằng sai.

Mô-đun Package::Stash có thể giúp bạn tìm các trình con được xác định trong một không gian tên cụ thể, nhưng như bạn nói, chúng có thể không được xác định trong cùng một tệp. Các phương thức trong một lớp có thể đến từ một lớp kế thừa. Nếu bạn quan tâm đến nơi họ đến từ, bạn có thể làm điều đó sai.