in reply to Simple OO

Shouldn't you use 
my $class = ref($proto) || $proto;

[download]
Doesn't ref{$proto} return 'HASH'?

In Section Seekers of Perl Wisdom