UNIVERSAL::derived_classes 0.01

SYNOPSIS

require UNIVERSAL::derived_classes;

package A;

package B;
@ISA = qw( A );

package C;
@ISA = qw( B );

package main;
my @derived_classes = A->derived_classes; # B, C
my @derived_classes_reversed = A->derived_classes_reversed; # C, B

UNIVERSAL::derived_classes provides the following methods:

CLASS->derived_classes(REVERSED)
$obj->derived_classes(REVERSED)

Where

REVERSED

is the flag to reverse classes

When used as a class method (CLASS->derived_classes(REVERSED)), derived_classes returns derived classes of the CLASS.

When used as an instance method ($obj->derived_classes(REVERSED)), derived_classes returns derived classes of a class where $obj is blessed.

If the REVERSED flag is true then reversed derived classes are returned.

CLASS->derived_classes_reversed
$obj->derived_classes_reversed
derived_classes_reversed is same as derived_classes(REVERSED)