Select Code to Download

#include "EXTERN.h"
#include "perl.h"
...
     was called.  ix = 0 means 'cindex',
     1 means ncindex, and so on */
}

sub sub_alias (\&;$) {
  my ($func, $ix) = (@_, 0);
...
*foo = sub_alias &bar, 1;
*blat = sub_alias &bar, 2;
*gunk = sub_alias &bar, 3;

sub SubAliasIndex::new { my ($class, $ix) = @_; bless \$ix, $class; }
sub SubAliasIndex::ix { ${ $_[0] } }
...
*foo = sub_alias &bar, 1;
*blat = sub_alias &bar, 2;
*gunk = sub_alias &bar, 3;