sub new {
   my ($class, $params) = @_;
   my $self = $params;
   bless $self, $class;
}