#!/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";