@subnames = grep {Test->can($_)} keys %Test::;
[download]

Although that gets tricky (both false positives and false negatives) in the face of inheritance. (But then, so does your use of can).