[Summary view] [Print] [Text view]

   1  #
   2  # Demand-load module list
   3  #
   4  package Encode::Config;
   5  our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\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      'gsm0338'               => 'Encode::GSM0338',
  80  
  81      # Encode::EBCDIC
  82      'cp37'     => 'Encode::EBCDIC',
  83      'cp500'    => 'Encode::EBCDIC',
  84      'cp875'    => 'Encode::EBCDIC',
  85      'cp1026'   => 'Encode::EBCDIC',
  86      'cp1047'   => 'Encode::EBCDIC',
  87      'posix-bc' => 'Encode::EBCDIC',
  88  
  89      # Encode::Symbol
  90      'dingbats'      => 'Encode::Symbol',
  91      'symbol'        => 'Encode::Symbol',
  92      'AdobeSymbol'   => 'Encode::Symbol',
  93      'AdobeZdingbat' => 'Encode::Symbol',
  94      'MacDingbats'   => 'Encode::Symbol',
  95      'MacSymbol'     => 'Encode::Symbol',
  96  
  97      # Encode::Unicode
  98      'UCS-2BE'  => 'Encode::Unicode',
  99      'UCS-2LE'  => 'Encode::Unicode',
 100      'UTF-16'   => 'Encode::Unicode',
 101      'UTF-16BE' => 'Encode::Unicode',
 102      'UTF-16LE' => 'Encode::Unicode',
 103      'UTF-32'   => 'Encode::Unicode',
 104      'UTF-32BE' => 'Encode::Unicode',
 105      'UTF-32LE' => 'Encode::Unicode',
 106      'UTF-7'    => 'Encode::Unicode::UTF7',
 107  );
 108  
 109  unless ( ord("A") == 193 ) {
 110      %ExtModule = (
 111          %ExtModule,
 112          'euc-cn'         => 'Encode::CN',
 113          'gb12345-raw'    => 'Encode::CN',
 114          'gb2312-raw'     => 'Encode::CN',
 115          'hz'             => 'Encode::CN',
 116          'iso-ir-165'     => 'Encode::CN',
 117          'cp936'          => 'Encode::CN',
 118          'MacChineseSimp' => 'Encode::CN',
 119  
 120          '7bit-jis'      => 'Encode::JP',
 121          'euc-jp'        => 'Encode::JP',
 122          'iso-2022-jp'   => 'Encode::JP',
 123          'iso-2022-jp-1' => 'Encode::JP',
 124          'jis0201-raw'   => 'Encode::JP',
 125          'jis0208-raw'   => 'Encode::JP',
 126          'jis0212-raw'   => 'Encode::JP',
 127          'cp932'         => 'Encode::JP',
 128          'MacJapanese'   => 'Encode::JP',
 129          'shiftjis'      => 'Encode::JP',
 130  
 131          'euc-kr'      => 'Encode::KR',
 132          'iso-2022-kr' => 'Encode::KR',
 133          'johab'       => 'Encode::KR',
 134          'ksc5601-raw' => 'Encode::KR',
 135          'cp949'       => 'Encode::KR',
 136          'MacKorean'   => 'Encode::KR',
 137  
 138          'big5-eten'      => 'Encode::TW',
 139          'big5-hkscs'     => 'Encode::TW',
 140          'cp950'          => 'Encode::TW',
 141          'MacChineseTrad' => 'Encode::TW',
 142  
 143          #'big5plus'           => 'Encode::HanExtra',
 144          #'euc-tw'             => 'Encode::HanExtra',
 145          #'gb18030'            => 'Encode::HanExtra',
 146  
 147          'MIME-Header' => 'Encode::MIME::Header',
 148          'MIME-B'      => 'Encode::MIME::Header',
 149          'MIME-Q'      => 'Encode::MIME::Header',
 150  
 151          'MIME-Header-ISO_2022_JP' => 'Encode::MIME::Header::ISO_2022_JP',
 152      );
 153  }
 154  
 155  #
 156  # Why not export ? to keep ConfigLocal Happy!
 157  #
 158  while ( my ( $enc, $mod ) = each %ExtModule ) {
 159      $Encode::ExtModule{$enc} = $mod;
 160  }
 161  
 162  1;
 163  __END__
 164  
 165  =head1 NAME
 166  
 167  Encode::Config -- internally used by Encode
 168  
 169  =cut