sub new {
  my ($class, %opts) = @_;
  my $self = { %opts };

  bless $self, $class;
}