| Subject: | Class::Handle lacks subclasses method found in Class::Inspector |
Class::Handle has almost complete functionality of the Class::Inspector code, but not the subclasses method.
A possible fix, given the tight coupling of Class::Handle and Class::Inspector, which lets you lower the maintenance of C::H is code like this:
BEGIN {
foreach my $meth (Class::Inspector->methods("Class::Inspector")){
my $subref = sub {
my $self = ref $_[0] ? shift : return undef;
Class::Inspector->$meth($self->{name});
};
{ no strict; *{$meth} = $subref };
}
}