namespace problem on Safel

Hello all

The namespace problem on Safe module was already discussed here. I don't
know the discussion since today, and made Safe::Hole module. It makes a
hole to the original root compartment in the Safe compartment

It is at:
http://hp1.jonex.ne.jp/~nakajima.yasushi/archives/Safe-Hole-0.03.tar.gz

My approach is:

1.An Safe::Hole object saves the original root stash.
2.The object wraps the subroutine or object which is shared or copied
into the Safe compartment. 
3.When the wrapped subroutine or object method is called, it is executed
in the original root compartment.

For example:

  use Safe;
  use Safe::Hole;
  $cpt = new Safe;
  $hole = new Safe::Hole;
  sub test { Test->test; }
  $Testobj = new Test;
  # $cpt->share('&test');  # alternate as next line
  $hole->wrap(\&test, $cpt, '&test');
  # ${$cpt->varglob('Testobj')} = $Testobj;  # alternate as next line
  $hole->wrap($Testobj, $cpt, '$Testobj');
  $cpt->reval('test; $Testobj->test;'); 
  print $@ if $@;
  package Test;
  sub new { bless {},shift(); }
  sub test { my $self = shift; $self->test2; }
  sub test2 { print "Test->test2 called\n"; }


Of course you must be careful to use Safe::Hole. But it is not more
danger than Safe::share(). The name 'Hole' may be too stimulative.


Sey Nakajima <sey@jkc.co.jp>
Kyoto, Japan

• namespace problem on Safel by Yasushi Nakajima