sub varname ($) { substr $_[0], (1+rindex $_[0],':') }


  sub _access_maker {       #{{xo{2
    my $pkg  = shift;      #var in $_
    {
      #TPe "(Dvam: %s::%s() )\xc2\x83",$pkg,$_;
      my $proc = '# line ' . __LINE__ . ' "' . __FILE__ . "\"\n" . '
      { use warnings;use strict;
        package '.$pkg.'; 
        sub '.$_.' (;$) {           # create access routine  for package::var
          $_=[$_,shift, Data::Vars::varname((caller 0)[3]), wantarray];
          goto &Data::Vars::_Var};
      1}';
      eval $proc;
      $@ and die "Fatal error in $pkg\::Vars\::_access_maker?: $@\n";
    }
  } ## end sub _access_maker  }}}2