Commit | Line | Data |
---|---|---|
fc8cd66c | 1 | package Cname; |
2 | our $Evil='A'; | |
3 | ||
4 | sub translator { | |
5 | my $str = shift; | |
6 | if ( $str eq 'EVIL' ) { | |
7 | (my $c=substr("A".$Evil,-1))++; | |
8 | my $r=$Evil; | |
9 | $Evil.=$c; | |
10 | return $r; | |
11 | } | |
12 | if ( $str eq 'EMPTY-STR') { | |
13 | return ""; | |
14 | } | |
15 | return $str; | |
16 | } | |
17 | ||
18 | sub import { | |
19 | shift; | |
20 | $^H{charnames} = \&translator; | |
21 | } | |
22 | 1; |