ext/Encode/lib/Encode/Config.pm

   1 #
   2 # Demand-load module list
   3 #
   4 package Encode::Config;
   5 our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
   6
   7 use strict;
   8 use warnings;
   9
  10 our %ExtModule = (
  11
  12     # Encode::Byte
  13     #iso-8859-1 is in Encode.pm itself
  14     'iso-8859-2'            => 'Encode::Byte',
  15     'iso-8859-3'            => 'Encode::Byte',
  16     'iso-8859-4'            => 'Encode::Byte',
  17     'iso-8859-5'            => 'Encode::Byte',
  18     'iso-8859-6'            => 'Encode::Byte',
  19     'iso-8859-7'            => 'Encode::Byte',
  20     'iso-8859-8'            => 'Encode::Byte',
  21     'iso-8859-9'            => 'Encode::Byte',
  22     'iso-8859-10'           => 'Encode::Byte',
  23     'iso-8859-11'           => 'Encode::Byte',
  24     'iso-8859-13'           => 'Encode::Byte',
  25     'iso-8859-14'           => 'Encode::Byte',
  26     'iso-8859-15'           => 'Encode::Byte',
  27     'iso-8859-16'           => 'Encode::Byte',
  28     'koi8-f'                => 'Encode::Byte',
  29     'koi8-r'                => 'Encode::Byte',
  30     'koi8-u'                => 'Encode::Byte',
  31     'viscii'                => 'Encode::Byte',
  32     'cp424'                 => 'Encode::Byte',
  33     'cp437'                 => 'Encode::Byte',
  34     'cp737'                 => 'Encode::Byte',
  35     'cp775'                 => 'Encode::Byte',
  36     'cp850'                 => 'Encode::Byte',
  37     'cp852'                 => 'Encode::Byte',
  38     'cp855'                 => 'Encode::Byte',
  39     'cp856'                 => 'Encode::Byte',
  40     'cp857'                 => 'Encode::Byte',
  41     'cp860'                 => 'Encode::Byte',
  42     'cp861'                 => 'Encode::Byte',
  43     'cp862'                 => 'Encode::Byte',
  44     'cp863'                 => 'Encode::Byte',
  45     'cp864'                 => 'Encode::Byte',
  46     'cp865'                 => 'Encode::Byte',
  47     'cp866'                 => 'Encode::Byte',
  48     'cp869'                 => 'Encode::Byte',
  49     'cp874'                 => 'Encode::Byte',
  50     'cp1006'                => 'Encode::Byte',
  51     'cp1250'                => 'Encode::Byte',
  52     'cp1251'                => 'Encode::Byte',
  53     'cp1252'                => 'Encode::Byte',
  54     'cp1253'                => 'Encode::Byte',
  55     'cp1254'                => 'Encode::Byte',
  56     'cp1255'                => 'Encode::Byte',
  57     'cp1256'                => 'Encode::Byte',
  58     'cp1257'                => 'Encode::Byte',
  59     'cp1258'                => 'Encode::Byte',
  60     'AdobeStandardEncoding' => 'Encode::Byte',
  61     'MacArabic'             => 'Encode::Byte',
  62     'MacCentralEurRoman'    => 'Encode::Byte',
  63     'MacCroatian'           => 'Encode::Byte',
  64     'MacCyrillic'           => 'Encode::Byte',
  65     'MacFarsi'              => 'Encode::Byte',
  66     'MacGreek'              => 'Encode::Byte',
  67     'MacHebrew'             => 'Encode::Byte',
  68     'MacIcelandic'          => 'Encode::Byte',
  69     'MacRoman'              => 'Encode::Byte',
  70     'MacRomanian'           => 'Encode::Byte',
  71     'MacRumanian'           => 'Encode::Byte',
  72     'MacSami'               => 'Encode::Byte',
  73     'MacThai'               => 'Encode::Byte',
  74     'MacTurkish'            => 'Encode::Byte',
  75     'MacUkrainian'          => 'Encode::Byte',
  76     'nextstep'              => 'Encode::Byte',
  77     'hp-roman8'             => 'Encode::Byte',
  78     'gsm0338'               => 'Encode::Byte',
  79
  80     # Encode::EBCDIC
  81     'cp37'     => 'Encode::EBCDIC',
  82     'cp500'    => 'Encode::EBCDIC',
  83     'cp875'    => 'Encode::EBCDIC',
  84     'cp1026'   => 'Encode::EBCDIC',
  85     'cp1047'   => 'Encode::EBCDIC',
  86     'posix-bc' => 'Encode::EBCDIC',
  87
  88     # Encode::Symbol
  89     'dingbats'      => 'Encode::Symbol',
  90     'symbol'        => 'Encode::Symbol',
  91     'AdobeSymbol'   => 'Encode::Symbol',
  92     'AdobeZdingbat' => 'Encode::Symbol',
  93     'MacDingbats'   => 'Encode::Symbol',
  94     'MacSymbol'     => 'Encode::Symbol',
  95
  96     # Encode::Unicode
  97     'UCS-2BE'  => 'Encode::Unicode',
  98     'UCS-2LE'  => 'Encode::Unicode',
  99     'UTF-16'   => 'Encode::Unicode',
 100     'UTF-16BE' => 'Encode::Unicode',
 101     'UTF-16LE' => 'Encode::Unicode',
 102     'UTF-32'   => 'Encode::Unicode',
 103     'UTF-32BE' => 'Encode::Unicode',
 104     'UTF-32LE' => 'Encode::Unicode',
 105     'UTF-7'    => 'Encode::Unicode::UTF7',
 106 );
 107
 108 unless ( ord("A") == 193 ) {
 109     %ExtModule = (
 110         %ExtModule,
 111         'euc-cn'         => 'Encode::CN',
 112         'gb12345-raw'    => 'Encode::CN',
 113         'gb2312-raw'     => 'Encode::CN',
 114         'hz'             => 'Encode::CN',
 115         'iso-ir-165'     => 'Encode::CN',
 116         'cp936'          => 'Encode::CN',
 117         'MacChineseSimp' => 'Encode::CN',
 118
 119         '7bit-jis'      => 'Encode::JP',
 120         'euc-jp'        => 'Encode::JP',
 121         'iso-2022-jp'   => 'Encode::JP',
 122         'iso-2022-jp-1' => 'Encode::JP',
 123         'jis0201-raw'   => 'Encode::JP',
 124         'jis0208-raw'   => 'Encode::JP',
 125         'jis0212-raw'   => 'Encode::JP',
 126         'cp932'         => 'Encode::JP',
 127         'MacJapanese'   => 'Encode::JP',
 128         'shiftjis'      => 'Encode::JP',
 129
 130         'euc-kr'      => 'Encode::KR',
 131         'iso-2022-kr' => 'Encode::KR',
 132         'johab'       => 'Encode::KR',
 133         'ksc5601-raw' => 'Encode::KR',
 134         'cp949'       => 'Encode::KR',
 135         'MacKorean'   => 'Encode::KR',
 136
 137         'big5-eten'      => 'Encode::TW',
 138         'big5-hkscs'     => 'Encode::TW',
 139         'cp950'          => 'Encode::TW',
 140         'MacChineseTrad' => 'Encode::TW',
 141
 142         #'big5plus'           => 'Encode::HanExtra',
 143         #'euc-tw'             => 'Encode::HanExtra',
 144         #'gb18030'            => 'Encode::HanExtra',
 145
 146         'MIME-Header' => 'Encode::MIME::Header',
 147         'MIME-B'      => 'Encode::MIME::Header',
 148         'MIME-Q'      => 'Encode::MIME::Header',
 149
 150         'MIME-Header-ISO_2022_JP' => 'Encode::MIME::Header::ISO_2022_JP',
 151     );
 152 }
 153
 154 #
 155 # Why not export ? to keep ConfigLocal Happy!
 156 #
 157 while ( my ( $enc, $mod ) = each %ExtModule ) {
 158     $Encode::ExtModule{$enc} = $mod;
 159 }
 160
 161 1;
 162 __END__
 163
 164 =head1 NAME
 165
 166 Encode::Config -- internally used by Encode
 167
 168 =cut