Select Code to Download

sub isa_descent {
    my $self = shift @_;
...
        $self->isa_descent($ancestor);
    }
}

   $o->isa_descent(ref $o);