Help for this page

Select Code to Download


  1. or download this
    package SuperClass;
sub subclasses {
...

$\=$,="\n";
print SuperClass::subclasses();
  2. or download 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