sub new {
  my $this = shift;
  my $class = ref($this) || $this;
  my $self = $this->SUPER::new(@_);
  bless $self, $class;
  return $self;
}