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