Help for this page

Select Code to Download


  1. or download this
    use Lexical::Alias qw( alias );
    
    ...
    alias $_[1], $VALUES{ $ident );
    $_[1] = $value if defined($value);
    splice(@_, 0, 2);
    
  2. or download this
    {
        package My::Tie::Scalar::Alias;
    ...
    
    
    tie $_[1], 'My::Tie::Scalar::Alias', \$VALUES{ $_[0] };