in reply to new() function: incorrect?

Because ... ref($proto) - just say no!, Why ref($proto) should be avoided, It's a dog, but what kind? (polymorphism , in Perl OO), Constructing Objects (May 04), Is "ref($class) || $class" a bad thing?, Mmmm ... cargo cult progamming is nummy!