ext/Encode/JP/JP.pm

   1 package Encode::JP;
   2 BEGIN {
   3     if (ord("A") == 193) {
   4         die "Encode::JP not supported on EBCDIC\n";
   5     }
   6 }
   7 use Encode;
   8 our $VERSION = '0.02';
   9 use XSLoader;
  10 XSLoader::load('Encode::JP',$VERSION);
  11
  12 use Encode::JP::JIS;
  13 use Encode::JP::ISO_2022_JP;
  14
  15 1;
  16 __END__