sub new { my $class = shift; bless { @_ } => $class; }