sub new { # Do the cargo cult OO construction thing my $proto = shift; my $class = ref($proto) || $proto; ...