Question

Lets say I have the following package Hierarchy:

A--> B --> C --> D

Which means A is the base class and B inherits from it in turn C inherits from B and so on.

also, lets say I have the following line of code:

my $co = D->new();

is there any way to check (some UNIVERSAL method?) if object co is is a descendant of A ? (or in general, to test if an object X is a descendant of package P)

Answer 1

See UNIVERSAL.

if ($D->isa('A')) {print "do something fancy"}

or

if ($D->can('method_defined_in_A')) {print "can do that";}