package Lexical::Alias; # alias() is the XS function # with a prototype of ($$) # the following are merely wrappers sub alias_s (\$\$) { goto &alias } sub alias_a (\@\@) { goto &alias } sub alias_h (\%\%) { goto &alias } 1;