Lines Matching refs:alias

151 sub alias (@) # Set up a single alias  subroutine
156   my $alias = ref $_[0] ? $_[0] : { @_ };
157   foreach my $name (sort keys %$alias) {  # Sort only because it helps having
160     my $value = $alias->{$name};
251   if (my @alias = do $file) {
252     @alias == 1 && !defined $alias[0] and
254     @alias % 2 and
256     alias (@alias);
692       my $alias = shift;
693       if (ref $alias) {
694         ref $alias eq "HASH" or
696         alias ($alias);
700       if ($alias =~ m{:(\w+)$}) {
706       alias_file ($alias) and $promote = 1;