sub has {
    my( $key, $hv, $val, $force )= @_;
    if(  exists $hv->{$key}  ) {
        $val= $hv->{$key};
    } elsif(  ! defined wantarray  ||  $force  ) {
        $hv->{$key}= $val;
    }
    return $val;
}