in reply to Arbritrarily requireing classes.

sub new
{
    my ($proto, $type) = @_;
    my $class = ref($proto) || $proto;
...

[download]
Please note that perltoot no longer recommends such code, based in part on my rant on the subject.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

In Section Seekers of Perl Wisdom