Lines Matching defs:alias
47 sub alias (@)
50 my $alias = ref $_[0] ? $_[0] : { @_ };
51 @alias3{keys %$alias} = values %$alias;
52 } # alias
64 croak "Charnames alias files can only have identifier characters";
66 if (my @alias = do $file) {
67 @alias == 1 && !defined $alias[0] and
68 croak "$file cannot be used as alias file for charnames";
69 @alias % 2 and
70 croak "$file did not return a (valid) list of alias pairs";
71 alias (@alias);
194 if ($_ eq ":alias") {
196 croak ":alias needs an argument in charnames";
197 my $alias = shift;
198 if (ref $alias) {
199 ref $alias eq "HASH" or
200 croak "Only HASH reference supported as argument to :alias";
201 alias ($alias);
204 if ($alias =~ m{:(\w+)$}) {
206 croak ":alias cannot use existing pragma :$1 (reversed order?)";
210 alias_file ($alias);
346 use charnames ":full", ":alias" => {
430 use charnames ":full", ":alias" => {
437 use charnames ":full", ":alias" => "pro";
454 use charnames ":alias" => ":pro";
456 works exactly the same as the alias pairs, only this time,