sub new {
    my ($self) = shift;
    return $self->SUPER::new(@_);
} # new