Update; rewritten, now a working solution thanks to Aristotle's help... Old post under read more

You'll need to (recursively) get all defined namespaces, and then check all of them to see which ones are a subclass of ourselves... The code below seems to work...

package SuperClass;
sub subclasses {
        return grep {
                UNIVERSAL::isa($_,__PACKAGE__) && 
                $_ ne __PACKAGE__ 
        } main::packages();
}

package SubClass;
@ISA=qw(SuperClass);

package main;
sub packages {
        return packages({},\%main::) unless @_;
        my ($packages,$in) = @_;                        
        while(my ($package,$table) = each %$in) {       
                next unless $package =~ /(.*)::$/;      
                next if exists $packages->{$table};     
                $packages->{$table} = $1;               
                packages($packages,$table);             
        }
        return values %$packages;                       
}

$\=$,="\n";
print SuperClass::subclasses();

[download]
Below here is the old post

Because a class doesn't (and shouldn't) know about it's subclasses, you'd probably have to do something like this:

my @subclasses = grep {
    /^(.*?)::$/ &&                  # it's a package entry
    UNIVERSAL::isa($1,__PACKAGE__)  # entry is subclass of me!
} keys %main:: ;                    # for everything in main namespace

[download]
Naturally untested, but it might just work...

Update: isa probably needed a package name

Another update: my 'solution' isn't even close, and I don't know why...

In reply to Re: subclass discovery at runtime by Gilimanjaro
in thread subclass discovery at runtime by dash2

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.