distrib/lib/charnames.pm

1 package charnames;
9 $charnames::hint_bits = 0x20000; # HINT_LOCALIZE_HH
68       croak "$file cannot be used as alias file for charnames";
78 sub charnames
177 } # charnames
184     carp("`use charnames' needs explicit imports list");
186   $^H |= $charnames::hint_bits;
187   $^H{charnames} = \&charnames ;
196 	croak ":alias needs an argument in charnames";
214       warn "unsupported special '$_' in charnames";
260     carp "charnames::viacode() expects one argument";
272     carp("unexpected arg \"$arg\" to charnames::viacode()");
297     carp "charnames::vianame() expects one name argument";
333 charnames - define character names for C<\N{named}> string literal escapes
337   use charnames ':full';
340   use charnames ':short';
343   use charnames qw(cyrillic greek);
346   use charnames ":full", ":alias" => {
351   use charnames ();
352   print charnames::viacode(0x1234); # prints "ETHIOPIC SYLLABLE SEE"
353   printf "%04X", charnames::vianame("GOTHIC LETTER AHSA"); # prints "10330"
357 Pragma C<use charnames> supports arguments C<:full>, C<:short>, script
362 as a letter in script C<SCRIPT>.  If pragma C<use charnames> is used
381 functionality, use charnames::vianame().
396 hardwired into F<charnames.pm>.  A module can install custom
400     use charnames ();		# for $charnames::hint_bits
403 	$^H |= $charnames::hint_bits;
404 	$^H{charnames} = \&translator;
425 This version of charnames supports three mechanisms of adding local
430     use charnames ":full", ":alias" => {
437     use charnames ":full", ":alias" => "pro";
454     use charnames ":alias" => ":pro";
460 =head1 charnames::viacode(code)
465     print charnames::viacode(0x2722);
477 =head1 charnames::vianame(name)
482     printf "%04X", charnames::vianame("FOUR TEARDROP-SPOKED ASTERISK");