Lines Matching refs:a2c
18 my %a2c;
23 %a2c = (
90 $a2c{"ISO 8859 $i"} = "iso-8859-$i";
93 $a2c{"ISO Latin $i"} = "iso-8859-$Encode::Alias::Latin2iso[$i]";
97 $a2c{"Win" . ucfirst($k)} = "cp" . $v;
98 $a2c{"IBM-$v"} = $a2c{"MS-$v"} = "cp" . $v;
99 $a2c{"cp-" . $v} = "cp" . $v;
101 my @a2c = keys %a2c;
102 for my $k (@a2c){
103 $a2c{uc($k)} = $a2c{$k};
104 $a2c{lc($k)} = $a2c{$k};
105 $a2c{lcfirst($k)} = $a2c{$k};
106 $a2c{ucfirst($k)} = $a2c{$k};
135 use Test::More tests => (scalar keys %a2c) * 3 + @override_tests;
139 foreach my $a (keys %a2c){
140 print "# $a => $a2c{$a}\n";
142 is((defined($e) and $e->name), $a2c{$a},$a)
177 foreach my $a (keys %a2c){
187 foreach my $a (keys %a2c){
189 is((defined($e) and $e->name), $a2c{$a}, "Reinit $a")
193 for my $k (keys %a2c){
195 print "$k => $a2c{$k}\n";