sub new { my ($class, %data) = @_; bless \%data => $class; }