sub new { my ($class) = @_; $class = ref($class) || $class; return bless {}, $class; }