'private value' trapped by operation mask...

##</code><code>##

use strict;
use warnings;

use Safe;
my $box = new Safe;

$box->permit_only(
    ':base_core', 
    'rv2gv',      # ref to glob cast
    'padany'      # private variable
);

my $vi = $box->reval('5',1);
die "$@ " unless (defined $vi);
print "vi=$vi\n";

##</code><code>##

vi=5

##</code><code>##

$box->permit_only(':base_core', ':base_orig');