package Thingy; sub new { my $O = bless {}, shift; [lots of value setting here] [and oops, no return() statement!] }