Jaki jest najlepszy sposób na poznanie wszystkich klas nadrzędnych klasy Perl?

Question

Czy istnieje standardowy CPAN sposób na poznanie wszystkich nadklas klas Perla (lub lepiej jeszcze całego drzewa nadklasy, aż do UNIWERSALNEJ)?

Czy jest to najlepsza praktyka, aby po prostu sprawdzić @{"${$class}::ISA"} dla każdej klasy, rodziców klasy itp ...?

Answer 1

Nie ma "standardowego sposobu", ponieważ nie jest to standardowa rzecz, którą chcesz zrobić. W przypadku czegokolwiek innego niż wizualizacja jest to czerwona flaga OO, która chce sprawdzić twoje drzewo dziedzictwa.

Oprócz Class :: ISA jest mro::get_linear_isa(). Oba są w rdzeniu przez jakiś czas, więc można je uznać za "standardowe" dla jakiejś definicji. Obaj pokazują spadek jako płaską listę, a nie drzewo, co jest przydatne głównie dla głębokiej magii.

perl5i meta object zapewnia zarówno linear_isa(), jak MRO (to właśnie nazywa MRO) oraz ISA() która zwraca klasę @ISA. Można go użyć do skonstruowania drzewa za pomocą prostej rekursji bez przechodzenia do tabel symboli.

use perl5i::2; 

func print_isa_tree($class, $depth) { 
    $depth ||= 0; 

    my $indent = " " x $depth; 
    say $indent, $class; 

    for my $super_class ($class->mc->ISA) { 
     print_isa_tree($super_class, $depth+1); 
    } 

    return; 
} 


my $Class = shift; 
$Class->require; 

print_isa_tree($Class); 

__END__ 
DBIx::Class 
    DBIx::Class::Componentised 
     Class::C3::Componentised 
    DBIx::Class::AccessorGroup 
     Class::Accessor::Grouped 

Answer 2

Nie wierzę, że istnieje coś takiego jak "standardowy sposób CPAN". Badając @ISA jest powszechną praktyką - a także prawdopodobne, ponieważ techniki jak use base qw(...) i use parent -norequire, ... również działać na szczycie @ISA ...

Answer 3

myślę Class::ISA jest coś jak ty szukasz

use Class::ISA; 
use Mojolicious; 
print join "\n", Class::ISA::super_path("Mojolicious"); 

Drukuje:

Mojo 
Mojo::Base 

Jednak to nie jest jakaś "najlepsza praktyka", ponieważ całe zadanie nie jest czymś, co robią programiści Perla na co dzień.

Answer 4

Najprawdopodobniej te dni chcesz wykorzystać jedną z funkcji z mro, takich jak mro::get_linear_isa.

use mro; 
my @superclasses = mro::get_linear_isa($class);