Help for this page

Select Code to Download


  1. or download this
    use Lexical::Alias;

...

alias $that, $this;
# $this is now an alias for $that.
  2. or download this
    alias @x, @y;
alias %x, %y;
  3. or download this
    use Tie::Alias;

...

tie $this, 'Tie::Alias', \$that;
# $this is now an alias for $that.