I have created a hierarchy of classes in OO style for a testing program

Not an answer to your question... and I'm obviously biased... but have you looked at Test::Class?