El método isa nos permite saber si una clase hereda de otra:
if ($a->isa("B")) { # El objeto a es de la clase B ... }El método
isa
memoriza los valores que retorna, de manera que una vez que
conoce un par no necesita realizar una segunda búsqueda. Sin embargo la modificación
de los arrays @ISA
en la jerarquía borra las caches:
DB<1> @A::ISA = qw{B}; @B::ISA = qw(C); @C::ISA = () DB<2> $x = bless {}, 'A' DB<3> x $x->isa('C') 0 1 DB<4> @B::ISA = () DB<5> x $x->isa('C') 0 ''
Casiano Rodríguez León