Select Code to Download

sub _Var ($$$;$) { # Wrkhorse code for manufctrd Vars
    #note $p->obj, $vn=varname, $wa=wantarray val
    my ($__, $p, $vn, $wa)=@$_;