in reply to Finding classes which are inherited from a given class
There is a tiny module that gives a straight answer. Look for Class::CanBeA
Here is an example of how it works:
#!/usr/bin/perl -w use strict; use Class::CanBeA; package Dummy; sub dummy {}; # not inherited package Foo; sub bar {}; # The ultimate parent package Bar; use base qw(Foo); package DeepBar; use base qw(Bar); package DeeperBar; use base qw(DeepBar); package Pub; use base qw(Foo); package DeepPub; use base qw(Pub); package DeeperPub; use base qw(DeepPub); my @subclasses = @{Class::CanBeA::subclasses('Foo')}; print "@subclasses\n";
output: DeepBar Bar DeeperPub Pub DeeperBar DeepPub
_ _ _ _ (_|| | |(_|>< _|
|
---|
In Section
Seekers of Perl Wisdom