Add the binmode()s to make JP.t pass on Win32
[p5sagit/p5-mst-13.2.git] / ext / Encode / JP / JP.pm
CommitLineData
0e567a6c 1package Encode::JP;
0f3b375a 2BEGIN {
3 if (ord("A") == 193) {
4 die "Encode::JP not supported on EBCDIC\n";
5 }
6}
0e567a6c 7use Encode;
8our $VERSION = '0.02';
9use XSLoader;
10XSLoader::load('Encode::JP',$VERSION);
11
12use Encode::JP::JIS;
13use Encode::JP::ISO_2022_JP;
14
151;
16__END__
557e5ea9 17=head1 NAME
18
19Encode::JP - Japanese Encodings
20
21=head1 SYNOPSIS
22
2b217bf7 23 use Encode 'encode';
24 $euc_jp = encode("euc-jp", $utf8); # loads Encode::JP implicitly
25 $utf8 = encode("euc-jp", $euc_jp); # ditto
557e5ea9 26
27=head1 ABSTRACT
28
29This module implements Japanese charset encodings. Encodings
30supported 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
41To find how to use this module in detail, see L<Encode>.
42
43=head1 BUGS
44
45JIS X0212-1990 is not supported.
46
47ASCII part (0x00-0x7f) is preserved for all encodings, even though it
48conflicts with mappings by the Unicode Consortium. See
49
50F<http://www.debian.or.jp/~kubota/unicode-symbols.html.en>
51
52to find why it is implemented that way.
53
54=head1 SEE ALSO
55
56L<Encode>
57
58=cut