Some people think $obj->new is "wrong". Regardless, I'd shrink the constructor to:

sub new {
  bless {}, ref($_[0]) || $_[0];
}
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker.
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;