Какова наилучшая практика для определения всех суперклассов класса Perl?

Question

Есть ли стандартный способ CPAN для определения всех суперклассов класса Perl (или, лучше всего, всего дерева суперкласса, до UNIVERSAL)?

Или лучше всего просто изучить @{"${$class}::ISA"} для каждого класса, родителей класса и т. Д. ...?

Answer 1

Нет стандартного способа, потому что это не стандартная вещь, которую вы хотите сделать. Для чего угодно, кроме визуализации, это красный флаг OO, который хочет проверить ваше дерево наследования.

В дополнение к классу :: ISA, есть mro::get_linear_isa(). Оба были в ядре на некоторое время, поэтому их можно было считать «стандартными» для некоторого определения. Оба они показывают наследование как плоский список, а не дерево, которое полезно в основном для глубокой магии.

perl5i meta object обеспечивает как linear_isa(), как MRO (он просто вызывает MRO), и ISA(), который возвращает класс @ISA. Его можно использовать для построения дерева с использованием простой рекурсии без попадания в таблицы символов.

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

Я не верю, что есть что-то вроде «стандартного способа CPAN». Изучение @ISA является обычной практикой - а также правдоподобно, так как методы, как use base qw(...) и use parent -norequire, ... также работают на вершине @ISA ...

Answer 3

Я думаю Class::ISA это что-то, как вы ищете

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

гравюр:

Mojo 
Mojo::Base 

Однако, это не какая-то «лучшая практика», поскольку вся задача - это не то, что программисты Perl делают каждый день.

Answer 4

Скорее всего в эти дни вы хотите использовать один из функций из mro, таких как mro::get_linear_isa.

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