sub new { my ($class,%args) = @_; my $self = { %args }; bless $class, $self; $self->init(); }