Select Code to Download

  sub _Var ($$$;$) {                          # Wrkhorse code for manu
+fctrd Vars
#note $p->obj, $vn=varname, $wa=wantarray val
...
        my $subvar=$arg;                 ## 1 var w/hash is is a key
        $p->{$vn}{$subvar}=$_[0] if @_;       ## another?  =>assign va
+lue
        return $p->{$vn}{$subvar};  <- returns has here.

  sub by_mp(;$) { my $map = shift; my $c = ref $map || $map;
   ...init...
...
    $arg_lvh->fs_mp($arg);
    return $arg_lvh;
  }

  sub lvm_BaseDiff_Lvh_4_Base_opt_mp ($;$) {
    my $lvm = shift;
...
    $bdiff_lvh->fs_mp($lv_mp) unless $bdiff_lvh->fs_mp;
    $bdiff_lvh->fs_type_name($base_lvh->fs_type_name) 
      unless $bdiff_lvh->fs_type_name;