sub new { my $class = shift; bless {}, $class; }