Select Code to Download

use Lexical::Alias qw( alias );

...
alias $_[1], $VALUES{ $ident );
$_[1] = $value if defined($value);
splice(@_, 0, 2);

{
    package My::Tie::Scalar::Alias;
...


tie $_[1], 'My::Tie::Scalar::Alias', \$VALUES{ $_[0] };