get_all_isa

gistfile1.txt

sub get_all_isa($) { ## no critic                                                                                                                           
    _get_all_isa(shift, +{});
}

sub _get_all_isa {
    my($class, $searched_hash) = @_;

    my @class_isa = do {
        no strict 'refs';
        grep { not exists $searched_hash->{$_} } @{"${class}::ISA"};
    };

    foreach my $isa (@class_isa) {
        next if(exists $searched_hash->{$isa});
        _get_all_isa($isa, $searched_hash);
        $searched_hash->{$isa} = 1;
    }

    keys %$searched_hash;
}