SJIS, from Dan Kogai.
[p5sagit/p5-mst-13.2.git] / 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__
17 =head1 NAME
18
19 Encode::JP - Japanese Encodings
20
21 =head1 SYNOPSIS
22
23     use Encode::JP;
24     $euc_jp = encode("euc-jp", $utf8);
25     $utf8   = encode("euc-jp", $euc_jp);
26
27 =head1 ABSTRACT
28
29 This module implements Japanese charset encodings.  Encodings
30 supported are as follows.
31
32   euc-jp        EUC (Extended Unix Character)
33   shiftjis      Shift JIS (aka MS Kanji)
34   7bit-jis      7bit JIS
35   iso-2022-jp   ISO-2022-JP (7bit JIS with all X201 converted to X208)
36   macjapan      Mac Japan (Shift JIS + Apple vendor mappings)
37   cp932         Code Page 932 (Shift JIS + Microsoft vendor mappings)
38
39 =head1 DESCRIPTION
40
41 To find how to use this module in detail, see L<Encode>.
42
43 =head1 BUGS
44
45 JIS X0212-1990 is not supported.
46
47 ASCII part (0x00-0x7f) is preserved for all encodings, even though it
48 conflicts with mappings by the Unicode Consortium.  See
49
50 F<http://www.debian.or.jp/~kubota/unicode-symbols.html.en>
51
52 to find why it is implemented that way.
53
54 =head1 SEE ALSO
55
56 L<Encode>
57
58 =cut