http://www.perlmonks.org?node_id=696491


in reply to Re^3: getting a list of all subclasses of base class x
in thread getting a list of all subclasses of base class x

Still not perfect: @subclasses lives inside the BEGIN block only :)
my @subclasses;
BEGIN {
    @subclasses = Class::MOP::Class->initialize('x')->subclasses
}

[download]

perl -ple'$_=reverse' <<<ti.xittelop@oivalf

Io ho capito... ma tu che hai detto?

In Section Seekers of Perl Wisdom