Initial revision

8 files changed, 2379 insertions, 0 deletions

diff --git a/cpan/dist/File-MMagic/t/05-subclass.t b/cpan/dist/File-MMagic/t/05-subclass.t
new file mode 100644
index 00000000..8a076387
--- /dev/null
+++ b/cpan/dist/File-MMagic/t/05-subclass.t
@@ -0,0 +1,13 @@
+use strict;
+use warnings;
+use Test::More tests => 3;
+
+my $mm = Example::Module->new();
+isa_ok( $mm, 'Example::Module', 'subclassed object' );
+isa_ok( $mm, 'File::MMagic', 'subclassed object' );
+is( $mm->checktype_filename(), 'foo/bar', 'override method' );
+
+package Example::Module;
+use base qw( File::MMagic );
+
+sub checktype_filename { 'foo/bar' }
diff --git a/cpan/dist/File-MMagic/t/06-conthook.t b/cpan/dist/File-MMagic/t/06-conthook.t
new file mode 100644
index 00000000..a7c3cdd7
--- /dev/null
+++ b/cpan/dist/File-MMagic/t/06-conthook.t
@@ -0,0 +1,19 @@
+# perl-test
+# $Id$
+
+use strict;
+use Test;
+
+BEGIN { plan tests => 1 };
+
+use File::MMagic;
+
+my $ans = "text/plain; conthook";
+my $magic = File::MMagic->new();
+$magic->addContainerHook($ans, sub {
+	my $self = shift;
+	my $data = shift;
+	return "text/plain; conthook" if $data =~ /conthook/;
+	return ""; });
+my $ret = $magic->checktype_container('text conthook');
+ok($ret eq $ans);
diff --git a/cpan/dist/File-MMagic/t/07-contents.t b/cpan/dist/File-MMagic/t/07-contents.t
new file mode 100644
index 00000000..05176616
--- /dev/null
+++ b/cpan/dist/File-MMagic/t/07-contents.t
@@ -0,0 +1,14 @@
+# perl-test
+# $Id$
+
+use strict;
+use Test;
+
+BEGIN { plan tests => 1 };
+
+use File::MMagic;
+
+my $ans = "text/plain";
+my $magic = File::MMagic->new();
+my $ret = $magic->checktype_contents('text conthook');
+ok($ret eq $ans);
diff --git a/cpan/dist/Unicode-Japanese/c_lib/sample.c b/cpan/dist/Unicode-Japanese/c_lib/sample.c
new file mode 100644
index 00000000..7ed11bf5
--- /dev/null
+++ b/cpan/dist/Unicode-Japanese/c_lib/sample.c
@@ -0,0 +1,51 @@
+/* ----------------------------------------------------------------------------
+ * $ gcc -Wall -o sample sample.c -L. -lunijp
+ * ------------------------------------------------------------------------- */
+#include "unijp.h"
+#include <errno.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+int test_conv(const char* text_utf8, uj_charcode_t ocode)
+{
+  uj_charcode_t icode = ujc_utf8;
+  size_t in_bytes;
+  unijp_t* uj;
+  uj_uint8* obuf;
+  uj_size_t obuf_len;
+
+  in_bytes = strlen(text_utf8);
+  uj = uj_new((uj_uint8*)text_utf8, in_bytes, icode);
+  if( uj==NULL )
+  {
+    fprintf(stderr, "uj_new: %s: %s\n", "-", strerror(errno));
+    return 1;
+  }
+  obuf = uj_conv(uj, ocode, &obuf_len);
+  if( obuf==NULL )
+  {
+    fprintf(stderr, "uj_conv: %s: %s\n", "-", strerror(errno));
+    return 1;
+  }
+
+  printf("sjis result: %s\n", obuf);
+  free(obuf);
+  uj_delete(uj);
+
+  return 0;
+}
+
+int main()
+{
+  int r;
+  const char* text_utf8 = "テスト";
+
+  r = test_conv(text_utf8, ujc_sjis);
+
+  return r;
+}
+
+/* ----------------------------------------------------------------------------
+ * End of File.
+ * ------------------------------------------------------------------------- */
diff --git a/cpan/dist/Unicode-Japanese/erlang/Changes b/cpan/dist/Unicode-Japanese/erlang/Changes
new file mode 100644
index 00000000..21955dae
--- /dev/null
+++ b/cpan/dist/Unicode-Japanese/erlang/Changes
@@ -0,0 +1,4 @@
+Revision history for Erlang unijp module.
+
+0.03 Tue Nov 16 15:52:55 JST 2010
+    - libunijp update, no erlang code changes.
diff --git a/cpan/dist/Unicode-Japanese/t/v048_xs_internal.t b/cpan/dist/Unicode-Japanese/t/v048_xs_internal.t
new file mode 100644
index 00000000..77aafaea
--- /dev/null
+++ b/cpan/dist/Unicode-Japanese/t/v048_xs_internal.t
@@ -0,0 +1,80 @@
+#! perl
+use strict;
+use warnings;
+
+use Test::More;
+use B qw(svref_2object);
+use Unicode::Japanese qw(unijp);
+
+Unicode::Japanese->new(''); # load xs code.
+if( $Unicode::Japanese::xs_loaderror )
+{
+  plan skip_all => 'xs not loaded';
+}
+
+{
+  package MY::TieObject;
+  sub TIESCALAR
+  {
+    my $pkg = shift;
+    my $ref = shift;
+    bless $ref, $pkg;
+  }
+  sub FETCH
+  {
+    my $this = shift;
+    $$this;
+  }
+}
+
+plan tests => 3 + 4;
+
+pretest();
+test();
+
+sub pretest
+{
+  my $val = undef;
+  tie my $obj, 'MY::TieObject', \$val;
+
+  is(SvOK($obj), undef, "[pre] first: undef, SvOK:false");
+
+  $val = "test";
+  is(SvOK($obj), undef, "[pre] set, but get magic not handled, SvOK:false");
+
+  my $var1 = defined($obj);
+  is(SvOK($obj), 1, "[pre] get magic handled");
+}
+
+sub test
+{
+  my $uj = Unicode::Japanese->new();
+  is($Unicode::Japanese::xs_loaderror, '', "[test] xs enabled");
+
+  local($^W) = 1;
+  local($SIG{__DIE__}) = 'DEFAULT';
+
+  is($uj->_u2s(undef), undef, "[test] undef");
+
+  do{
+    # fixed in v087.
+    my $val = undef;
+    tie my $obj, 'MY::TieObject', \$val;
+    $val = "test";
+    is($uj->_u2s($obj), "test", "[test] set2");
+  };
+
+  do{
+    my $val = undef;
+    tie my $obj, 'MY::TieObject', \$val;
+    $val = "test";
+    my $var = defined($obj);
+    is($uj->_u2s($obj), "test", "[test] set2");
+  };
+}
+
+
+sub SvOK
+{
+  Unicode::Japanese::__SvOK($_[0]) ? 1 : undef;
+}
diff --git a/cpan/lib/Unicode/Japanese.mlpod b/cpan/lib/Unicode/Japanese.mlpod
new file mode 100644
index 00000000..bab5b4d5
--- /dev/null
+++ b/cpan/lib/Unicode/Japanese.mlpod
@@ -0,0 +1,1321 @@
+
+=encoding utf-8
+
+=head1 NAME
+
+Unicode::Japanese - Convert encoding of japanese text
+J<< ja; Unicode::Japanese::JA - 日本語文字コード変換 >>
+
+=head1 SYNOPSIS
+
+ use Unicode::Japanese;
+ use Unicode::Japanese qw(unijp);
+ 
+ # convert utf8 -> sjis
+ 
+ print Unicode::Japanese->new($str)->sjis;
+ print unijp($str)->sjis; # same as above.
+ 
+ # convert sjis -> utf8
+ 
+ print Unicode::Japanese->new($str,'sjis')->get;
+ 
+ # convert sjis (imode_EMOJI) -> utf8
+ 
+ print Unicode::Japanese->new($str,'sjis-imode')->get;
+ 
+ # convert zenkaku (utf8) -> hankaku (utf8)
+ 
+ print Unicode::Japanese->new($str)->z2h->get;
+
+=head1 DESCRIPTION
+
+The Unicode::Japanese module converts encoding of japanese text from one
+encoding to another.
+J<< ja;
+Unicode::Japanese は，日本語の文字コードの相互変換を行うモジュールです．
+>>
+
+=head2 FEATURES
+
+=over 2
+
+=item *
+
+An instance of Unicode::Japanese internally holds a string in UTF-8.
+J<< ja;
+Unicode::Japanese のインスタンスは，UTF-8 で文字列を保持します．
+>>
+
+=item *
+
+This module is implemented in two ways: XS and pure perl. If efficiency is
+important for you, you should build and install the XS module. If you don't want
+to, or if you can't build the XS module, you may use the pure perl module
+instead. In that case, only you have to do is to copy Japanese.pm into somewhere
+in @INC.
+J<< ja;
+XS 使用/不使用を共にサポートしています．
+XS 版はパフォーマンスが必要な場合に，
+No-XS 版は手軽に使用したい場合に使用して下さい
+(Japanese.pm をコピーするだけで動作します)．
+>>
+
+=item *
+
+This module can convert characters from zenkaku (full-width) form to hankaku
+(half-width) form, and vice versa. Conversion between hiragana (one of two sets
+of japanese phonetical alphabet) and katakana (another set of japanese
+phonetical alphabet) is also supported.
+J<< ja;
+全角半角変換，カタカナひらがな変換をサポートしています．
+>>
+
+=item *
+
+This module has mapping tables for emoji (graphic characters) defined by various
+japanese mobile phones; DoCoMo i-mode, ASTEL dot-i and J-PHONE J-Sky. Those
+letters are mapped on Unicode Private Use Area so unicode strings it outputs are
+still valid even if they contain emoji, and you can safely pass them to other
+softwares that can handle Unicode.
+J<< ja;
+携帯電話 (DoCoMo i-mode，KDDI AU, Softbank Mobile, ASTEL dot-i) の絵文字を
+Unicode 私用領域にマッピングすることで，DB 等で安全に扱うことができます．
+>>
+
+=item *
+
+This module can map some emoji from one set to another. Different mobile phones
+define different sets of emoji, so mapping each other is not always
+possible. But since some emoji exist in two or more sets with similar
+appearance, this module considers those emoji to be the same.
+J<< ja;
+異なる携帯電話同士で，同じイメージの絵文字は相互変換することが可能です．
+>>
+
+=item *
+
+This module uses the mapping table for MS-CP932 instead of the standard
+Shift_JIS. The Shift_JIS encoding used by MS-Windows (MS-SJIS/MS-CP932) slightly
+differs from the standard.
+J<< ja;
+SJIS は， MS-CP932 とみなして Unicode とマッピングを行います．
+>>
+
+=item *
+
+When the module converts strings from Unicode to Shift_JIS, EUC-JP or
+ISO-2022-JP, unicode letters which can't be represented in those encodings will
+be encoded in "&#dddd;" form (decimal character reference). Note, however, that
+letters in Unicode Private Use Area will be replaced with '?' mark ('QUESTION
+MARK'; U+003F) instead of being encoded. In addition, encoding to character sets
+for mobile phones makes every unrepresentable letters being '?' mark.
+J<< ja;
+Unicode -> SJIS（及びEUC-JP/JIS） のマッピング時，SJIS で表現できない文字は
+&#dddd; 形式に変換します． ただしUnicode私用領域におかれている絵文字は
+'?'になります. また, 携帯電話向けの変換時には, すべての対応しない文字は'?'になります.
+>>
+
+=item *
+
+On perl-5.8.0 or later, this module handles the UTF-8 flag: the method utf8()
+returns UTF-8 I<byte> string, and the method getu() returns UTF-8 I<character>
+string.
+J<< ja;
+Perl-5.8.0 以降において, utf8 フラグの設定処理を行います.
+utf-8 `バイト'列 の取得には utf8() メソッドを, 
+utf-8 `文字'列 の取得には getu() メソッドを使います.
+>>
+
+Currently the method get() returns UTF-8 I<byte> string but this behavior may be
+changed in the future.
+J<< ja;
+get() メソッドは現時点では utf-8 `バイト'列 を返します
+(将来的に変更される可能性もあります).
+>>
+
+Methods like sjis(), jis(), utf8(), and such like return I<byte> string. new(),
+set(), getcode() methods just ignore the UTF-8 flag of strings they take.
+J<< ja;
+sjis(), jis(), utf8(), etc.. メソッドではバイト列を返します.
+new, set, getcode メソッドの入力には, utf8-flaged/bytes を問いません.
+>>
+
+=back
+
+=head1 REQUIREMENT
+J<< ja; 動作に必要なもの >>
+
+=over 4
+
+=item *
+
+perl 5.10.x, 5.8.x, etc. (5.004 and later)
+J<< ja;
+perl 5.10.x, 5.8.x, etc. (5.004 以降).
+>>
+
+=item *
+
+(optional)
+C Compiler.
+This module supports both XS and Pure Perl.
+If you have no C Compilers,
+Unicode::Japanese will be installed as Pure Perl module.
+J<< ja;
+(なくてもOK)
+C コンパイラ.
+このモジュールは XS と Pure Perl 両方に対応しています.
+C コンパイラがないときには, Unicode::Japanese は
+Pure Perl モジュールとしてインストールされます.
+>>
+
+=item *
+
+(optional)
+Test.pm and Test::More for testing.
+J<< ja;
+(なくてもOK)
+テスト用に Test.pm 及び Test::More.
+>>
+
+=back
+
+No other modules are required at run time.
+J<< ja;
+実行時に必須なモジュールはありません.
+>>
+
+=head1 METHODS
+
+=over 4
+
+=item $s = Unicode::Japanese->new($str [, $icode [, $encode]])
+
+Create a new instance of Unicode::Japanese.
+J<< ja;
+新しい Unicode::Japanese インスタンスを指定します．
+>>
+
+Any given parameters will be internally passed to the method L</set>().
+J<< ja;
+パラメータを指定すると，L</set> メソッドに渡されます．
+>>
+
+=item $s = unijp($str [, $icode [, $encode]])
+
+Same as Unicode::Jananese->new(...).
+J<< ja;
+Unicode::Janaese->new(...) と同義.
+>>
+
+=item $s->set($str [, $icode [, $encode]])
+X<set>
+
+=over 2
+
+=item $str: string
+J<< ja; $str: 文字列 >>
+
+=item $icode: optional character encoding (default: 'utf8')
+J<< ja; $icode: 文字コード指定．省略可．省略時は 'utf8' >>
+
+=item $encode: optional binary encoding (default: no binary encodings are assumed)
+J<< ja; $encode: バイナリ符号化方式．省略可． >>
+
+=back
+
+Store a string into the instance.
+J<< ja;
+インスタンスに文字列をセットします．
+文字コード指定を省略すると UTF-8 と見なされます．
+>>
+
+Possible character encodings are:
+J<< ja;
+利用可能な文字コード:
+>>
+
+ auto
+ utf8 ucs2 ucs4
+ utf16-be utf16-le utf16
+ utf32-be utf32-le utf32
+ sjis cp932 euc euc-jp jis
+ sjis-imode sjis-imode1 sjis-imode2
+ utf8-imode utf8-imode1 utf8-imode2
+ sjis-doti sjis-doti1
+ sjis-jsky sjis-jsky1 sjis-jsky2
+ jis-jsky  jis-jsky1  jis-jsky2
+ utf8-jsky utf8-jsky1 utf8-jsky2
+ sjis-au sjis-au1 sjis-au2
+ jis-au  jis-au1  jis-au2
+ sjis-icon-au sjis-icon-au1 sjis-icon-au2
+ euc-icon-au  euc-icon-au1  euc-icon-au2
+ jis-icon-au  jis-icon-au1  jis-icon-au2
+ utf8-icon-au utf8-icon-au1 utf8-icon-au2
+ ascii binary
+
+(see also L</"SUPPORTED ENCODINGS">.)
+J<< ja;
+(L</"SUPPORTED ENCODINGS J<< ja; サポートされているエンコーディング >> ">
+も参照.)
+>>
+
+If you want the Unicode::Japanese detect the character encoding of string, you
+must explicitly specify 'auto' as the second argument. In that case, the given
+string will be passed to the method getcode() to guess the encoding.
+J<< ja;
+文字コードを自動判別する場合は，'auto' を指定しなくてはいけません．
+'auto' 時の文字コード自動判別は，getcode() メソッドにより
+行われます．
+>>
+
+For binary encodings, only 'base64' is currently supported. If you specify
+'base64' as the third argument, the given string will be decoded using Base64
+decoder.
+J<< ja;
+バイナリ符号化方式には，'base64' のみ指定可能です．
+base64 を指定した場合は，base64 デコードされてから
+Unicode::Japanese クラスの文字列となります．
+>>
+
+Specify 'binary' as the second argument if you want your string to be stored
+without modification.
+J<< ja;
+渡された文字列を変更せずそのまま格納して欲しい場合には，文字コードとして
+'binary' を指定します．
+>>
+
+When you specify 'sjis-imode' or 'sjis-doti' as the character encoding, any
+occurences of '&#dddd;' (decimal character reference) in the string will be
+interpreted and decoded as code point of emoji, just like emoji implanted into
+the string in binary form.
+J<< ja;
+sjis-imode，sjis-doti，の場合，文字列中の &#dddd; は
+絵文字に変換されます．
+>>
+
+Since encoded forms of strings in various encodings are not clearly distinctive
+to each other, it is not always certainly possible to detect what encoding is
+used for a given string.
+J<< ja;
+文字コードは領域が重なっている場合があるため，
+自動判別は確実ではありません．
+>>
+
+When a given string is possibly interpreted as both Shift_JIS and UTF-8 string,
+this module considers such a string to be encoded in Shift_JIS. And if the
+encoding is not distinguishable between 'sjis-au' and 'sjis-doti', this module
+considers it 'sjis-au'.
+J<< ja;
+sjis, utf8 の両方に解釈できる文字列の場合は，sjis，
+sjis-au，sjis-doti の両方に解釈できる文字列の場合は，sjis-au，
+を返します．
+>>
+
+=item $str = $s->get
+
+=over 2
+
+=item $str: string (UTF-8)
+J<< ja; $str: 文字列(UTF-8) >>
+
+=back
+
+Get the internal string in UTF-8.
+J<< ja;
+文字列を UTF-8 コードで取り出します．
+>>
+
+This method currently returns a byte string (whose UTF-8 flag is turned off),
+but this behavior may be changed in the future.
+J<< ja;
+現在は `バイト' 列 を返しますが, 将来的に変更される可能性もあります.
+>>
+
+If you absolutely want a byte string, you should use the method utf8()
+instead. And if you want a character string (whose UTF-8 flag is turned on), you
+have to use the method getu().
+J<< ja;
+バイト列が必要なら utf8() メソッドを, 
+文字列が必要なら getu() メソッドを使うことをオススメします.
+>>
+
+=item $str = $s->getu
+
+=over 2
+
+=item $str: string (UTF-8)
+J<< ja; $str: 文字列(UTF-8) >>
+
+=back
+
+Get the internal string in UTF-8.
+J<< ja;
+文字列を UTF-8 コードで取り出します．
+>>
+
+On perl-5.8.0 or later, this method returns a character string with its UTF-8
+flag turned on.
+J<< ja;
+Perl-5.8.0 以降においては, utf-8 フラグのついた utf-8 文字列として
+返します.
+>>
+
+=item $code = $s->getcode($str)
+
+=over 2
+
+=item $str: string
+J<< ja; $str: 文字列 >>
+
+=item $code: name of character encoding
+J<< ja; $code: 文字コードを表す文字列 >>
+
+=back
+
+Detect the character encoding of given string.
+J<< ja;
+渡された文字列(I<$str>)の文字コードを自動判別します．
+>>
+
+Note that this method, exceptionaly, doesn't deal with the internal string of an
+instance.
+J<< ja;
+この関数では, 例外的に, インスタンスに保持されている
+文字列のコードを判別するのではないことに注意してください．
+>>
+
+To guess the encoding, the following algorithm is used:
+J<< ja;
+文字コード自動判別時は，以下のアルゴリズムにより判定が行われます．
+>>
+
+(For pure perl implementation)
+J<< ja;
+(PurePerl時)
+>>
+
+=over 4
+
+=item 1
+
+If the string has an UTF-32 BOM, its encoding is 'utf32'.
+J<< ja;
+UTF-32 の BOM があれば，utf32 と判定します．
+>>
+
+=item 2
+
+If it has an UTF-16 BOM, its encoding is 'utf16'.
+J<< ja;
+UTF-16 の BOM があれば，utf16 と判定します．
+>>
+
+=item 3
+
+If it is valid for UTF-32BE, its encoding is 'utf32-be'.
+J<< ja;
+UTF-32BE として正しい形式なら，utf32-be と判定します．
+>>
+
+=item 4
+
+If it is valid for UTF-32LE, its encoding is 'utf32-le'.
+J<< ja;
+UTF-32LE として正しい形式なら，utf32-le と判定します．
+>>
+
+=item 5
+
+If it contains no ESC characters or bytes whose eighth bit is on, its encoding
+is 'ascii'. Every ASCII control characters (0x00-0x1F and 0x7F) except ESC
+(0x1B) are considered to be in the range of 'ascii'.
+J<< ja;
+ESC 文字 または 8 ビット目の立っている文字が含まれていなければ，ascii と判定しま
+す。ESC を除いた ASCII 制御文字 (0x00-0x1F 及び 0x7F) は ascii の範囲内と見做しま
+す。
+>>
+
+=item 6
+
+If it contains escape sequences of ISO-2022-JP, its encoding is 'jis'.
+J<< ja;
+JISエスケープシーケンスが含まれていれば，jis と判定します．
+>>
+
+=item 7
+
+If it contains any emoji defined for J-PHONE, its encoding is 'sjis-jsky'.
+J<< ja;
+J-PHONE の絵文字が含まれていれば，sjis-jsky と判別します．
+>>
+
+=item 8
+
+If it is valid for EUC-JP, its encoding is 'euc'.
+J<< ja;
+EUC-JP コードとして正しい形式なら，euc と判定します．
+>>
+
+=item 9
+
+If it is valid for Shift_JIS, its encoding is 'sjis'.
+J<< ja;
+SJIS コードとして正しい形式なら，sjis と判定します．
+>>
+
+=item 10
+
+If it contains any emoji defined for au, and everything else is valid for
+Shift_JIS, its encoding is 'sjis-au'.
+J<< ja;
+SJIS コードと au の絵文字として正しい形式なら，sjis-au と判定します．
+>>
+
+=item 11
+
+If it contains any emoji defined for i-mode, and everything else is valid for
+Shift_JIS, its encoding is 'sjis-imode'.
+J<< ja;
+SJIS と i-mode の絵文字として正しい形式なら，sjis-imode と判別します．
+>>
+
+=item 12
+
+If it contains any emoji defined for dot-i, and everything else is valid for
+Shift_JIS, its encoding is 'sjis-doti'.
+J<< ja;
+SJIS と dot-i の絵文字として正しい形式なら，sjis-doti と判別します．
+>>
+
+=item 13
+
+If it is valid for UTF-8, its encoding is 'utf8'.
+J<< ja;
+UTF-8 として正しい形式なら，utf8 と判定します．
+>>
+
+=item 14
+
+If no conditions above are fulfilled, its encoding is 'unknown'.
+J<< ja;
+いずれにも当てはまらない場合，unknown と判定します．
+>>
+
+=back
+
+(For XS implementation)
+J<< ja;
+(XS時)
+>>
+
+=over 4
+
+=item 1
+
+If the string has an UTF-32 BOM, its encoding is 'utf32'.
+J<< ja;
+UTF-32 の BOM があれば，utf32 と判定します．
+>>
+
+=item 2
+
+If it has an UTF-16 BOM, its encoding is 'utf16'.
+J<< ja;
+UTF-16 の BOM があれば，utf16 と判定します．
+>>
+
+=item 3
+
+Find all possible encodings that might have been applied to the string from the
+following:
+J<< ja;
+以下のコードについて, 正しい文字コードであることを状態遷移を用いて調べます.
+>>
+
+ascii / euc / sjis / jis / utf8 / utf32-be / utf32-le / sjis-jsky /
+sjis-imode / sjis-au / sjis-doti
+
+=item 4
+
+If any encodings have been found possible, this module picks out one encoding
+having the highest priority among them. The priority order is as follows:
+J<< ja;
+最後まで正しかったものの中から, 以下の優先順で１つをえらんで, それと判定します.
+>>
+
+utf32-be / utf32-le / ascii / jis / euc / sjis / sjis-jsky / sjis-imode /
+sjis-au / sjis-doti / utf8
+
+=item 5
+
+If no conditions above are fulfilled, its encoding is 'unknown'.
+J<< ja;
+いずれにも当てはまらない場合，unknown と判定します．
+>>
+
+=back
+
+Pay attention to the following pitfalls in the above algorithm:
+J<< ja;
+以上のアルゴリズムのため，以下の点に注意してください．
+>>
+
+=over 2
+
+=item *
+
+UTF-8 strings might be accidentally considered to be encoded in Shift_JIS.
+J<< ja;
+UTF-8 文字列でも，SJISコードと見なされる可能性があります．
+>>
+
+=item *
+
+UCS-2 strings (sequence of raw UCS-2 letters in big-endian; each letters has
+always 2 bytes) can't be detected because they look like nothing but sequences
+of random bytes whose length is an even number.
+J<< ja;
+UCS2 の自動判別はできません．
+>>
+
+=item *
+
+UTF-16 strings must have BOM to be detected.
+J<< ja;
+UTF-16 は BOM がある場合のみ自動認識します．
+>>
+
+=item *
+
+Emoji are only be recognized if they are implanted into the string in binary
+form. If they are described in '&#dddd;' form, they aren't considered to be
+emoji.
+J<< ja;
+携帯絵文字は，バイナリで直接絵文字がある場合のみ認識できます．
+ &#dddd; 形式で記述されている場合は，携帯絵文字の自動判別は行われません．
+>>
+
+=back
+
+Since the XS and pure perl implementations use different algorithms to guess
+encoding, they may guess differently for the same string. Especially, the pure
+perl implementation finds Shift_JIS strings containing ESC character (0x1B) to
+be actually encoded in Shift_JIS but XS implementation doesn't. This is because
+such strings can hardly be distinguished from 'sjis-jsky'. In addition, EUC-JP
+strings containing ESC character are also rejected for the same reason.
+J<< ja;
+XSとPurePerlでは, 判別のアルゴリズムに違いがあるため, 異なる結果になる可能性があります.
+特に, エスケープ文字を含んでいるsjisの場合, PurePerlではsjisと認識しますが
+XSでは認識しません. これはsjis-jskyと区別できなくなるためです. また, この
+作用による誤認識を防ぐため, euc-jpにおいても, 同様にエスケープ文字を受け付けなく
+なっています.
+>>
+
+=item $code = $s->getcodelist($str)
+
+=over 2
+
+=item $str: string
+J<< ja; $str: 文字列 >>
+
+=item $code: name of character encodings
+J<< ja; $code: 文字コードを表す文字列 >>
+
+=back
+
+Detect the character encoding of given string.
+J<< ja;
+渡された文字列(I<$str>)の文字コードを自動判別します．
+>>
+
+Unlike the method getcode(), getcodelist() returns a list of possible encodings.
+J<< ja;
+getcode とは違い, すべての受理可能な文字コードの
+一覧を返します. 
+>>
+
+=item $str = $s->conv($ocode, $encode)
+
+=over 2
+
+=item $ocode: character encoding (possible encodings are:)
+J<< ja; $ocode: 出力コード (以下から指定) >>
+
+ utf8 ucs2 ucs4 utf16
+ sjis cp932 euc euc-jp jis
+ sjis-imode sjis-imode1 sjis-imode2
+ utf8-imode utf8-imode1 utf8-imode2
+ sjis-doti sjis-doti1
+ sjis-jsky sjis-jsky1 sjis-jsky2
+ jis-jsky  jis-jsky1  jis-jsky2
+ utf8-jsky utf8-jsky1 utf8-jsky2
+ sjis-au sjis-au1 sjis-au2
+ jis-au  jis-au1  jis-au2
+ sjis-icon-au sjis-icon-au1 sjis-icon-au2
+ euc-icon-au  euc-icon-au1  euc-icon-au2
+ jis-icon-au  jis-icon-au1  jis-icon-au2
+ utf8-icon-au utf8-icon-au1 utf8-icon-au2
+ binary
+
+(see also L</"SUPPORTED ENCODINGS">.)
+J<< ja;
+(L</"SUPPORTED ENCODINGS J<< ja; サポートされているエンコーディング >> ">
+も参照.)
+>>
+
+Some encodings for mobile phones have a trailing digit like 'sjis-au2'. Those
+digits represent the version number of encodings. Such encodings have a variant
+with no trailing digits, like 'sjis-au', which is the same as the latest version
+among its variants.
+J<< ja;
+携帯向け文字コードのうち，末尾に数字がついているものは，数字が大きいほど
+大きな絵文字セット（最新機種の絵文字セット）を表しています．
+数字なしのものは，もっとも数字が大きい文字コードと同一です．
+>>
+
+=item $encode: optional binary encoding
+J<< ja; $encode: バイナリ符号化方式．省略可． >>
+
+=item $str: string
+J<< ja; $str: 文字列 >>
+
+=back
+
+Get the internal string of instance with encoding it using a given character
+encoding method.
+J<< ja;
+文字列を指定した文字コードに変換してから取り出します．
+>>
+
+If you want the resulting string to be encoded in Base64, specify 'base64' as
+the second argument.
+J<< ja;
+文字エンコードには，'base64' のみ指定可能です．
+base64 を指定した場合は，base64 エンコードされた
+文字列が返されます．
+>>
+
+On perl-5.8.0 or later, the UTF-8 flag of resulting string is turned off even if
+you specify 'utf8' to the first argument.
+J<< ja;
+perl-5.8.0 以降において, 出力は utf-8 フラグを持たないバイト列になります.
+>>
+
+=item $s->tag2bin
+
+Interpret decimal character references (&#dddd;) in the instance, and replaces
+them with single characters they represent.
+J<< ja;
+文字列中に含まれる &#dddd; 形式の文字列を，それが表す文字自体に置き換えます．
+>>
+
+=item $s->z2h
+
+Replace zenkaku (full-width) letters in the instance with hankaku (half-width)
+letters.
+J<< ja;
+全角を半角に変換します．
+>>
+
+=item $s->h2z
+
+Replace hankaku (half-width) letters in the instance with zenkaku (full-width)
+letters.
+J<< ja;
+半角を全角に変換します．
+>>
+
+=item $s->hira2kata
+
+Replace any hiragana in the instance with katakana.
+J<< ja;
+ひらがなをカタカナに変換します．
+>>
+
+=item $s->kata2hira
+
+Replace any katakana in the instance with hiragana.
+J<< ja;
+カタカナをひらがなに変換します．
+>>
+
+=item $str = $s->jis
+
+$str: byte string in ISO-2022-JP
+J<< ja;
+$str: JIS エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in ISO-2022-JP.
+J<< ja;
+文字列を JIS（ISO-2022-JP） コードで取り出します．
+>>
+
+=item $str = $s->euc
+
+$str: byte string in EUC-JP
+J<< ja;
+$str: euc-jp エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in EUC-JP.
+J<< ja;
+文字列を EUC-JP コードで取り出します．
+>>
+
+=item $str = $s->utf8
+
+$str: byte string in UTF-8
+J<< ja;
+$str: utf-8 エンコーディング形式のバイト列
+>>
+
+Get the internal UTF-8 string of instance.
+J<< ja;
+文字列を UTF-8 コードで取り出します．
+>>
+
+On perl-5.8.0 or later, the UTF-8 flag of resulting string is turned off.
+J<< ja;
+perl-5.8.0 以降においても, バイト列を返します.
+>>
+
+=item $str = $s->ucs2
+
+$str: byte string in UCS-2
+J<< ja;
+$str: ucs2 エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance as a sequence of raw UCS-2 letters in
+big-endian. Note that this is different from UTF-16BE as raw UCS-2 sequence has
+no concept of surrogate pair.
+J<< ja;
+文字列を UCS2 コードで取り出します．
+>>
+
+=item $str = $s->ucs4
+
+$str: byte string in UCS-4
+J<< ja;
+$str: ucs4 エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance as a sequence of raw UCS-4 letters in
+big-endian. This is practically the same as UTF-32BE.
+J<< ja;
+文字列を UCS4 コードで取り出します．
+>>
+
+=item $str = $s->utf16
+
+$str: byte string in UTF-16
+J<< ja;
+$str: ucs-16 エンコーディング形式のバイト列
+>>
+
+Get the insternal string of instance with encoding it in UTF-16 in big-endian
+with no BOM prepended.
+J<< ja;
+文字列を UTF-16 コードで取り出します．
+BOMは付きません．
+ビックエンディアン形式で返されます．
+>>
+
+=item $str = $s->sjis
+
+$str: byte string in Shift_JIS
+J<< ja;
+$str: sjis エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in Shift_JIS (MS-SJIS /
+MS-CP932).
+J<< ja;
+文字列を SJIS（MS-CP932） コードで取り出します．
+>>
+
+=item $str = $s->sjis_imode
+
+$str: byte string in 'sjis-imode'
+J<< ja;
+$str: sjis/imode絵文字 エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in 'sjis-imode'.
+J<< ja;
+文字列を i-mode 端末向けの SJIS コードで取り出します．
+最新のimode絵文字の別名です.
+>>
+
+=item $str = $s->sjis_imode1
+
+$str: byte string in 'sjis-imode1'
+J<< ja;
+$str: sjis/imode 絵文字 エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in 'sjis-imode1'.
+J<< ja;
+文字列を i-mode 端末向けの SJIS コードで取り出します．
+基本絵文字だけから成ります.
+>>
+
+=item $str = $s->sjis_imode2
+
+$str: byte string in 'sjis-imode2'
+J<< ja;
+$str: sjis/imode 絵文字 エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in 'sjis-imode2'.
+J<< ja;
+文字列を i-mode 端末向けの SJIS コードで取り出します．
+基本絵文字, 拡張絵文字を含みます.
+>>
+
+=item $str = $s->sjis_doti
+
+$str: byte string in 'sjis-doti'
+J<< ja;
+$str: sjis/dot-i 絵文字 エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in 'sjis-doti'.
+J<< ja;
+文字列を dot-i 端末向けの SJIS コードで取り出します．
+>>
+
+=item $str = $s->sjis_jsky
+
+$str: byte string in 'sjis-jsky'
+J<< ja;
+$str: sjis/j-sky 絵文字 エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in 'sjis-jsky'.
+J<< ja;
+文字列を j-sky 端末向けの SJIS コードで取り出します．
+最新のj-sky絵文字(VERSION 0.15 では, jsky2)の別名です.
+>>
+
+=item $str = $s->sjis_jsky1
+
+$str: byte string in 'sjis-jsky1'
+J<< ja;
+$str: sjis/j-sky 絵文字 エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in 'sjis-jsky1'.
+J<< ja;
+文字列を j-sky 端末向けの SJIS コードで取り出します．
+Page 1～3 のみの絵文字を含みます.
+>>
+
+=item $str = $s->sjis_jsky
+
+$str: byte string in 'sjis-jsky'
+J<< ja;
+$str: sjis/j-sky 絵文字 エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in 'sjis-jsky'.
+J<< ja;
+文字列を j-sky 端末向けの SJIS コードで取り出します．
+Page 1～6 の絵文字を含みます.
+>>
+
+=item $str = $s->sjis_icon_au
+
+$str: byte string in 'sjis-icon-au'
+J<< ja;
+$str: sjis/AU iconタグ エンコーディング形式のバイト列
+>>
+
+Get the internal string of instance with encoding it in 'sjis-icon-au'.
+J<< ja;
+文字列を AU 端末向けの SJIS コードで取り出します．
+>>
+
+=item $str_arrayref = $s->strcut($len)
+
+=over 2
+
+=item $len: maximum length of each chunks (in number of 
+full-width characters)
+J<< ja; $len: 分割する文字数(全角相当) >>
+
+=item $str_arrayref: reference to array of strings
+J<< ja; $str_arrayref: 文字列 >>
+
+=back
+
+Split the internal string of instance into chunks of a given length. 
+J<< ja;
+I<$len>で指定された文字数(全角)以下の文字列の配列に分割します．
+>>
+
+On perl-5.8.0 or later, UTF-8 flags of each chunks are turned on.
+J<< ja;
+配列の各要素は, utf-8 フラグを持ったutf-8文字列です.
+>>
+
+=item $len = $s->strlen
+
+$len: character width of the internal string
+J<< ja;
+$len: 文字列の表示幅
+>>
+
+Calculate the character width of the internal string. Half-width characters have
+width of one unit, and full-width characters have width of two units.
+J<< ja;
+UTF-8 文字に対して length() を使うと全角文字は１文字あたり長さ 3 になってしまいますが，
+このメソッドを使用すると，従来の SJIS のように，全角文字は１文字あたり長さ 2 を返します．
+>>
+
+=item $s->join_csv(@values);
+
+@values: array of strings
+J<< ja;
+@values: データ配列
+>>
+
+Build a line of CSV from the arguments, and store it into the instance. The
+resulting line has a trailing line break ("\n").
+J<< ja;
+配列を CSV 文字列に変換し，インスタンスに格納します．
+文字列の最後には改行("\n")が追加されます．
+>>
+
+=item @values = $s->split_csv;
+
+@values: array of strings
+J<< ja;
+@values: データ配列
+>>
+
+Parse a line of CSV in the instance and return each columns. The line will be
+chomp()ed before getting parsed.
+J<< ja;
+インスタンスに格納されている文字列を CSV と見なし，配列に分割します．
+文字列の最後にある改行("\n")は取り除かれてから分割されます．
+>>
+
+If the internal string was decoded from 'binary' encoding (see methods new() and
+set()), the UTF-8 flags of the resulting array of strings are turned
+off. Otherwise the flags are turned on.
+J<< ja;
+入力が binary でなければ utf-8 文字列を返します.
+binary だったときはバイト列を返します.
+>>
+
+=back
+
+=head1 SUPPORTED ENCODINGS
+J<< ja; サポートされているエンコーディング >>
+
+ +---------------+----+-----+-------+
+ |encoding       | in | out | guess |
+ +---------------+----+-----+-------+
+ |auto           : OK : --  | ----- |
+ +---------------+----+-----+-------+
+ |utf8           : OK : OK  | OK    |
+ |ucs2           : OK : OK  | ----- |
+ |ucs4           : OK : OK  | ----- |
+ |utf16-be       : OK : --  | ----- |
+ |utf16-le       : OK : --  | ----- |
+ |utf16          : OK : OK  | OK(#) |
+ |utf32-be       : OK : --  | OK    |
+ |utf32-le       : OK : --  | OK    |
+ |utf32          : OK : --  | OK(#) |
+ +---------------+----+-----+-------+
+ |sjis           : OK : OK  | OK    |
+ |cp932          : OK : OK  | ----- |
+ |euc            : OK : OK  | OK    |
+ |euc-jp         : OK : OK  | ----- |
+ |jis            : OK : OK  | OK    |
+ +---------------+----+-----+-------+
+ |sjis-imode     : OK : OK  | OK    |
+ |sjis-imode1    : OK : OK  | ----- |
+ |sjis-imode2    : OK : OK  | ----- |
+ |utf8-imode     : OK : OK  | ----- |
+ |utf8-imode1    : OK : OK  | ----- |
+ |utf8-imode2    : OK : OK  | ----- |
+ +---------------+----+-----+-------+
+ |sjis-doti      : OK : OK  | OK    |
+ |sjis-doti1     : OK : OK  | ----- |
+ +---------------+----+-----+-------+
+ |sjis-jsky      : OK : OK  | OK    |
+ |sjis-jsky1     : OK : OK  | ----- |
+ |sjis-jsky2     : OK : OK  | ----- |
+ |jis-jsky       : OK : OK  | ----- |
+ |jis-jsky1      : OK : OK  | ----- |
+ |jis-jsky2      : OK : OK  | ----- |
+ |utf8-jsky      : OK : OK  | ----- |
+ |utf8-jsky1     : OK : OK  | ----- |
+ |utf8-jsky2     : OK : OK  | ----- |
+ +---------------+----+-----+-------+
+ |sjis-au        : OK : OK  | OK    |
+ |sjis-au1       : OK : OK  | ----- |
+ |sjis-au2       : OK : OK  | ----- |
+ |jis-au         : OK : OK  | ----- |
+ |jis-au1        : OK : OK  | ----- |
+ |jis-au2        : OK : OK  | ----- |
+ |sjis-icon-au   : OK : OK  | ----- |
+ |sjis-icon-au1  : OK : OK  | ----- |
+ |sjis-icon-au2  : OK : OK  | ----- |
+ |euc-icon-au    : OK : OK  | ----- |
+ |euc-icon-au1   : OK : OK  | ----- |
+ |euc-icon-au2   : OK : OK  | ----- |
+ |jis-icon-au    : OK : OK  | ----- |
+ |jis-icon-au1   : OK : OK  | ----- |
+ |jis-icon-au2   : OK : OK  | ----- |
+ |utf8-icon-au   : OK : OK  | ----- |
+ |utf8-icon-au1  : OK : OK  | ----- |
+ |utf8-icon-au2  : OK : OK  | ----- |
+ +---------------+----+-----+-------+
+ |ascii          : OK : --  | OK    |
+ |binary         : OK : OK  | ----- |
+ +---------------+----+-----+-------+
+ (#): guessed when it has bom.
+
+=head2 GUESSING ORDER
+J<< ja; 自動認識優先順位 >>
+
+ 1.  utf32 (#)
+ 2.  utf16 (#)
+ 3.  utf32-be
+ 4.  utf32-le
+ 5.  ascii
+ 6.  jis
+ 7.  sjis-jsky (pp)
+ 8.  euc
+ 9.  sjis
+ 10. sjis-jsky (xs)
+ 11. sjis-au
+ 12. sjis-imode
+ 13. sjis-doti
+ 14. utf8
+ 15. unknown
+
+=head1 DESCRIPTION OF UNICODE MAPPING
+
+Transcoding between Unicode encodings and other ones is performed as below:
+J<< ja;
+Unicode とのマッピングは以下のように行われます．
+>>
+
+=over 2
+
+=item Shift_JIS
+
+This module uses the mapping table of MS-CP932.
+J<< ja;
+MS-CP932 として Unicode へマッピングを行います．
+マッピングテーブルは以下のURLのものを使用しています．
+>>
+
+L<< ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP932.TXT >>
+
+When the module tries to convert Unicode string to Shift_JIS, it represents most
+letters which isn't available in Shift_JIS as decimal character reference
+('&#dddd;'). There is one exception to this: every graphic characters for mobile
+phones are replaced with '?' mark.
+J<< ja;
+Unicode から SJIS へマッピングする場合に，表現できない文字があると，
+その文字は &#dddd; 形式に変換します．
+ただし，携帯絵文字は「?」に変換されます．
+>>
+
+For variants of Shift_JIS defined for mobile phones, every unrepresentable
+characters are replaced with '?' mark unlike the plain Shift_JIS.
+J<< ja;
+また，携帯向けの SJIS へ変換するときは，全ての表現できない文字は「?」に変換されます．
+>>
+
+=item EUC-JP/ISO-2022-JP
+
+This module doesn't directly convert Unicode string from/to EUC-JP or
+ISO-2022-JP: it once converts from/to Shift_JIS and then do the rest
+translation. So characters which aren't available in the Shift_JIS can not be
+properly translated.
+J<< ja;
+一度SJISコードに変換してから，Unicode へマッピングします．
+このとき，SJIS で表現できない文字が含まれていた場合，
+その文字は正しくマッピングできません．
+>>
+
+=item DoCoMo i-mode
+
+This module maps emoji in the range of F800 - F9FF to U+0FF800 - U+0FF9FF.
+J<< ja;
+F800 - F9FF の領域のうち絵文字が存在する部分を，U+0FF800 - U+0FF9FF
+の領域にマッピングします．
+>>
+
+=item ASTEL dot-i
+
+This module maps emoji in the range of F000 - F4FF to U+0FF000 - U+0FF4FF.
+J<< ja;
+F000 - F4FF の領域のうち絵文字が存在する部分を，U+0FF000 - U+0FF4FF
+の領域にマッピングします．
+>>
+
+=item J-PHONE J-SKY
+
+The encoding method defined by J-SKY is as follows: first an escape sequence
+"\e\$" comes to indicate the beginning of emoji, then the first byte of an emoji
+comes next, then the second bytes of at least one emoji comes next, then "\x0f"
+comes last to indicate the end of emoji. If a string contains a series of emoji
+whose first bytes are identical, such sequence can be compressed by cascading
+second bytes of them to the single first byte.
+J<< ja;
+J-SKY の絵文字は，エスケープシーケンス "\e\$" の後に，絵文字1バイト目，
+1つ以上の絵文字2バイト目，"\x0f"，と続きます．
+1バイト目が同じ絵文字が続く場合は，2バイト目のみを連続して書くことで
+圧縮することができます．
+>>
+
+This module considers a pair of those first and second bytes to be one letter,
+and map them from 4500 - 47FF to U+0FFB00 - U+0FFDFF.
+J<< ja;
+この1バイト目と2バイト目のペアを1文字と見なして，4500 - 47FF の領域を，
+U+0FFB00 - U+0FFDFF の領域にマッピングします．
+>>
+
+When the module encodes J-SKY emoji, it performs the compression automatically.
+J<< ja;
+Unicode::Japanese では，Unicode から J-SKY 絵文字にマッピングするとき，
+1バイト目が同一である絵文字が連続している場合は，圧縮処理を自動的に行います．
+>>
+
+=item AU
+
+This module maps AU emoji to U+0FF500 - U+0FF6FF.
+J<< ja;
+絵文字が存在する部分を，U+0FF500 - U+0FF6FF の領域にマッピングします．
+>>
+
+=back
+
+=head1 PurePerl mode
+
+   use Unicode::Japanese qw(PurePerl);
+
+If you want to explicitly take the pure perl implementation, pass
+C<'PurePerl'> to the argument of the C<use> statement.
+J<< ja;
+use 時の引数に C<'PurePerl'> を与えることで, 
+XSを使わないことを明示的に宣言できます.
+>>
+
+=head1 BUGS
+
+Please report bugs and requests to C<bug-unicode-japanese at rt.cpan.org> or
+L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Unicode-Japanese>. If you
+report them to the web interface, any progress to your report will be
+automatically sent back to you.
+J<< ja;
+バグや要望は C<bug-unicode-japanese at rt.cpan.org> 宛に
+報告してください. 若しくは
+L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Unicode-Japanese>.
+にある web インターフェースからでもかまいません.
+そこから私に通知され, そして私が変更を行うことで報告頂いたバグの進捗は
+自動的にあなたに伝わります.
+>>
+
+=over 2
+
+=item *
+
+This module doesn't directly convert Unicode string from/to EUC-JP or
+ISO-2022-JP: it once converts from/to Shift_JIS and then do the rest
+translation. So characters which aren't available in the Shift_JIS can not be
+properly translated.
+J<< ja;
+EUC-JP，JIS コードは，SJIS に変換されてから UTF-8 へ変換されるため，
+SJIS で表現できない文字列は正しく変換することはできません．
+>>
+
+=item *
+
+The XS implementation of getcode() fails to detect the encoding when the given
+string contains \e while its encoding is EUC-JP or Shift_JIS.
+J<< ja;
+XSを使用している場合，EUC-JP，SJIS(絵文字含む)コードの文字列中に
+\e が含まれると，EUC-JP，SJIS コードの判定に失敗し，
+正しく自動判別や変換を行うことが出来ません．
+>>
+
+=item *
+
+Japanese.pm is composed of textual perl script and binary character conversion
+table. If you transfer it on FTP using ASCII mode, the file will collapse.
+J<< ja;
+Japanese.pm はファイル後半にバイナリを含むため，FTP の ASCII モードで
+転送するとファイルが壊れます．
+>>
+
+=back
+
+=head1 SUPPORT
+
+You can find documentation for this module with the perldoc command.
+J<< ja;
+このモジュールのドキュメントは perldoc コマンドで見ることが出来ます.
+>>
+
+    perldoc Unicode::Japanese
+
+You can find more information at:
+J<< ja;
+また, 以下の場所でも見ることが出来ます:
+>>
+
+
+=over 4
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Unicode-Japanese>
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/Unicode-Japanese>
+
+=item * RT: CPAN's request tracker
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Unicode-Japanese>
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Unicode-Japanese>
+
+=back
+
+=head1 CREDITS
+
+Thanks very much to:
+
+NAKAYAMA Nao
+
+SUGIURA Tatsuki & Debian JP Project
+
+=head1 COPYRIGHT & LICENSE
+
+Copyright 2001-2008
+SANO Taku (SAWATARI Mikage) and YAMASHINA Hio,
+all rights reserved.
+
+This program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
+J<< ja;
+このプログラムはフリーソフトウェアです。あなたは Perl と同じ
+ライセンスの 元で再配布及び変更を行うことが出来ます.
+>>
+
+=cut
+
diff --git a/cpan/lib/Unicode/Japanese/JA.pod b/cpan/lib/Unicode/Japanese/JA.pod
new file mode 100644
index 00000000..c9d81993
--- /dev/null
+++ b/cpan/lib/Unicode/Japanese/JA.pod
@@ -0,0 +1,877 @@
+=encoding utf-8
+
+=head1 NAME
+
+Unicode::Japanese::JA - 日本語文字コード変換
+
+=head1 概要
+
+ use Unicode::Japanese;
+ use Unicode::Japanese qw(unijp);
+ 
+ # convert utf8 -> sjis
+ 
+ print Unicode::Japanese->new($str)->sjis;
+ print unijp($str)->sjis; # same as above.
+ 
+ # convert sjis -> utf8
+ 
+ print Unicode::Japanese->new($str,'sjis')->get;
+ 
+ # convert sjis (imode_EMOJI) -> utf8
+ 
+ print Unicode::Japanese->new($str,'sjis-imode')->get;
+ 
+ # convert zenkaku (utf8) -> hankaku (utf8)
+ 
+ print Unicode::Japanese->new($str)->z2h->get;
+
+=head1 説明
+
+Unicode::Japanese は，日本語の文字コードの相互変換を行うモジュールです．
+
+=head2 機能
+
+=over 2
+
+=item *
+
+
+
+Unicode::Japanese のインスタンスは，UTF-8 で文字列を保持します．
+
+=item *
+
+
+
+XS 使用/不使用を共にサポートしています．
+XS 版はパフォーマンスが必要な場合に，
+No-XS 版は手軽に使用したい場合に使用して下さい
+(Japanese.pm をコピーするだけで動作します)．
+
+=item *
+
+
+
+全角半角変換，カタカナひらがな変換をサポートしています．
+
+=item *
+
+
+
+携帯電話 (DoCoMo i-mode，KDDI AU, Softbank Mobile, ASTEL dot-i) の絵文字を
+Unicode 私用領域にマッピングすることで，DB 等で安全に扱うことができます．
+
+=item *
+
+
+
+異なる携帯電話同士で，同じイメージの絵文字は相互変換することが可能です．
+
+=item *
+
+
+
+SJIS は， MS-CP932 とみなして Unicode とマッピングを行います．
+
+=item *
+
+
+
+Unicode -> SJIS（及びEUC-JP/JIS） のマッピング時，SJIS で表現できない文字は
+&#dddd; 形式に変換します． ただしUnicode私用領域におかれている絵文字は
+'?'になります. また, 携帯電話向けの変換時には, すべての対応しない文字は'?'になります.
+
+=item *
+
+
+
+Perl-5.8.0 以降において, utf8 フラグの設定処理を行います.
+utf-8 `バイト'列 の取得には utf8() メソッドを, 
+utf-8 `文字'列 の取得には getu() メソッドを使います.
+
+get() メソッドは現時点では utf-8 `バイト'列 を返します
+(将来的に変更される可能性もあります).
+
+sjis(), jis(), utf8(), etc.. メソッドではバイト列を返します.
+new, set, getcode メソッドの入力には, utf8-flaged/bytes を問いません.
+
+=back
+
+=head1 動作に必要なもの
+
+=over 4
+
+=item *
+
+
+
+perl 5.10.x, 5.8.x, etc. (5.004 以降).
+
+=item *
+
+
+
+(なくてもOK)
+C コンパイラ.
+このモジュールは XS と Pure Perl 両方に対応しています.
+C コンパイラがないときには, Unicode::Japanese は
+Pure Perl モジュールとしてインストールされます.
+
+=item *
+
+
+
+(なくてもOK)
+テスト用に Test.pm 及び Test::More.
+
+=back
+
+実行時に必須なモジュールはありません.
+
+=head1 メソッド
+
+=over 4
+
+=item $s = Unicode::Japanese->new($str [, $icode [, $encode]])
+
+新しい Unicode::Japanese インスタンスを指定します．
+
+パラメータを指定すると，L</set> メソッドに渡されます．
+
+=item $s = unijp($str [, $icode [, $encode]])
+
+Unicode::Janaese->new(...) と同義.
+
+=item $s->set($str [, $icode [, $encode]])
+X<set>
+
+=over 2
+
+=item $str: 文字列
+
+=item $icode: 文字コード指定．省略可．省略時は 'utf8'
+
+=item $encode: バイナリ符号化方式．省略可．
+
+=back
+
+インスタンスに文字列をセットします．
+文字コード指定を省略すると UTF-8 と見なされます．
+
+利用可能な文字コード:
+
+ auto
+ utf8 ucs2 ucs4
+ utf16-be utf16-le utf16
+ utf32-be utf32-le utf32
+ sjis cp932 euc euc-jp jis
+ sjis-imode sjis-imode1 sjis-imode2
+ utf8-imode utf8-imode1 utf8-imode2
+ sjis-doti sjis-doti1
+ sjis-jsky sjis-jsky1 sjis-jsky2
+ jis-jsky  jis-jsky1  jis-jsky2
+ utf8-jsky utf8-jsky1 utf8-jsky2
+ sjis-au sjis-au1 sjis-au2
+ jis-au  jis-au1  jis-au2
+ sjis-icon-au sjis-icon-au1 sjis-icon-au2
+ euc-icon-au  euc-icon-au1  euc-icon-au2
+ jis-icon-au  jis-icon-au1  jis-icon-au2
+ utf8-icon-au utf8-icon-au1 utf8-icon-au2
+ ascii binary
+
+(L<|/サポートされているエンコーディング>
+も参照.)
+
+文字コードを自動判別する場合は，'auto' を指定しなくてはいけません．
+'auto' 時の文字コード自動判別は，getcode() メソッドにより
+行われます．
+
+バイナリ符号化方式には，'base64' のみ指定可能です．
+base64 を指定した場合は，base64 デコードされてから
+Unicode::Japanese クラスの文字列となります．
+
+渡された文字列を変更せずそのまま格納して欲しい場合には，文字コードとして
+'binary' を指定します．
+
+sjis-imode，sjis-doti，の場合，文字列中の &#dddd; は
+絵文字に変換されます．
+
+文字コードは領域が重なっている場合があるため，
+自動判別は確実ではありません．
+
+sjis, utf8 の両方に解釈できる文字列の場合は，sjis，
+sjis-au，sjis-doti の両方に解釈できる文字列の場合は，sjis-au，
+を返します．
+
+=item $str = $s->get
+
+=over 2
+
+=item $str: 文字列(UTF-8)
+
+=back
+
+文字列を UTF-8 コードで取り出します．
+
+現在は `バイト' 列 を返しますが, 将来的に変更される可能性もあります.
+
+バイト列が必要なら utf8() メソッドを, 
+文字列が必要なら getu() メソッドを使うことをオススメします.
+
+=item $str = $s->getu
+
+=over 2
+
+=item $str: 文字列(UTF-8)
+
+=back
+
+文字列を UTF-8 コードで取り出します．
+
+Perl-5.8.0 以降においては, utf-8 フラグのついた utf-8 文字列として
+返します.
+
+=item $code = $s->getcode($str)
+
+=over 2
+
+=item $str: 文字列
+
+=item $code: 文字コードを表す文字列
+
+=back
+
+渡された文字列(I<$str>)の文字コードを自動判別します．
+
+この関数では, 例外的に, インスタンスに保持されている
+文字列のコードを判別するのではないことに注意してください．
+
+文字コード自動判別時は，以下のアルゴリズムにより判定が行われます．
+
+(PurePerl時)
+
+=over 4
+
+=item 1
+
+
+
+UTF-32 の BOM があれば，utf32 と判定します．
+
+=item 2
+
+
+
+UTF-16 の BOM があれば，utf16 と判定します．
+
+=item 3
+
+
+
+UTF-32BE として正しい形式なら，utf32-be と判定します．
+
+=item 4
+
+
+
+UTF-32LE として正しい形式なら，utf32-le と判定します．
+
+=item 5
+
+
+
+ESC 文字 または 8 ビット目の立っている文字が含まれていなければ，ascii と判定しま
+す。ESC を除いた ASCII 制御文字 (0x00-0x1F 及び 0x7F) は ascii の範囲内と見做しま
+す。
+
+=item 6
+
+
+
+JISエスケープシーケンスが含まれていれば，jis と判定します．
+
+=item 7
+
+
+
+J-PHONE の絵文字が含まれていれば，sjis-jsky と判別します．
+
+=item 8
+
+
+
+EUC-JP コードとして正しい形式なら，euc と判定します．
+
+=item 9
+
+
+
+SJIS コードとして正しい形式なら，sjis と判定します．
+
+=item 10
+
+
+
+SJIS コードと au の絵文字として正しい形式なら，sjis-au と判定します．
+
+=item 11
+
+
+
+SJIS と i-mode の絵文字として正しい形式なら，sjis-imode と判別します．
+
+=item 12
+
+
+
+SJIS と dot-i の絵文字として正しい形式なら，sjis-doti と判別します．
+
+=item 13
+
+
+
+UTF-8 として正しい形式なら，utf8 と判定します．
+
+=item 14
+
+
+
+いずれにも当てはまらない場合，unknown と判定します．
+
+=back
+
+(XS時)
+
+=over 4
+
+=item 1
+
+
+
+UTF-32 の BOM があれば，utf32 と判定します．
+
+=item 2
+
+
+
+UTF-16 の BOM があれば，utf16 と判定します．
+
+=item 3
+
+
+
+以下のコードについて, 正しい文字コードであることを状態遷移を用いて調べます.
+
+ascii / euc / sjis / jis / utf8 / utf32-be / utf32-le / sjis-jsky /
+sjis-imode / sjis-au / sjis-doti
+
+
+=item 4
+
+
+
+最後まで正しかったものの中から, 以下の優先順で１つをえらんで, それと判定します.
+
+utf32-be / utf32-le / ascii / jis / euc / sjis / sjis-jsky / sjis-imode /
+sjis-au / sjis-doti / utf8
+
+
+=item 5
+
+
+
+いずれにも当てはまらない場合，unknown と判定します．
+
+=back
+
+以上のアルゴリズムのため，以下の点に注意してください．
+
+=over 2
+
+=item *
+
+
+
+UTF-8 文字列でも，SJISコードと見なされる可能性があります．
+
+=item *
+
+
+
+UCS2 の自動判別はできません．
+
+=item *
+
+
+
+UTF-16 は BOM がある場合のみ自動認識します．
+
+=item *
+
+
+
+携帯絵文字は，バイナリで直接絵文字がある場合のみ認識できます．
+ &#dddd; 形式で記述されている場合は，携帯絵文字の自動判別は行われません．
+
+=back
+
+XSとPurePerlでは, 判別のアルゴリズムに違いがあるため, 異なる結果になる可能性があります.
+特に, エスケープ文字を含んでいるsjisの場合, PurePerlではsjisと認識しますが
+XSでは認識しません. これはsjis-jskyと区別できなくなるためです. また, この
+作用による誤認識を防ぐため, euc-jpにおいても, 同様にエスケープ文字を受け付けなく
+なっています.
+
+=item $code = $s->getcodelist($str)
+
+=over 2
+
+=item $str: 文字列
+
+=item $code: 文字コードを表す文字列
+
+=back
+
+渡された文字列(I<$str>)の文字コードを自動判別します．
+
+getcode とは違い, すべての受理可能な文字コードの
+一覧を返します.
+
+=item $str = $s->conv($ocode, $encode)
+
+=over 2
+
+=item $ocode: 出力コード (以下から指定)
+
+ utf8 ucs2 ucs4 utf16
+ sjis cp932 euc euc-jp jis
+ sjis-imode sjis-imode1 sjis-imode2
+ utf8-imode utf8-imode1 utf8-imode2
+ sjis-doti sjis-doti1
+ sjis-jsky sjis-jsky1 sjis-jsky2
+ jis-jsky  jis-jsky1  jis-jsky2
+ utf8-jsky utf8-jsky1 utf8-jsky2
+ sjis-au sjis-au1 sjis-au2
+ jis-au  jis-au1  jis-au2
+ sjis-icon-au sjis-icon-au1 sjis-icon-au2
+ euc-icon-au  euc-icon-au1  euc-icon-au2
+ jis-icon-au  jis-icon-au1  jis-icon-au2
+ utf8-icon-au utf8-icon-au1 utf8-icon-au2
+ binary
+
+(L<|/サポートされているエンコーディング>
+も参照.)
+
+携帯向け文字コードのうち，末尾に数字がついているものは，数字が大きいほど
+大きな絵文字セット（最新機種の絵文字セット）を表しています．
+数字なしのものは，もっとも数字が大きい文字コードと同一です．
+
+=item $encode: バイナリ符号化方式．省略可．
+
+=item $str: 文字列
+
+=back
+
+文字列を指定した文字コードに変換してから取り出します．
+
+文字エンコードには，'base64' のみ指定可能です．
+base64 を指定した場合は，base64 エンコードされた
+文字列が返されます．
+
+perl-5.8.0 以降において, 出力は utf-8 フラグを持たないバイト列になります.
+
+=item $s->tag2bin
+
+文字列中に含まれる &#dddd; 形式の文字列を，それが表す文字自体に置き換えます．
+
+=item $s->z2h
+
+全角を半角に変換します．
+
+=item $s->h2z
+
+半角を全角に変換します．
+
+=item $s->hira2kata
+
+ひらがなをカタカナに変換します．
+
+=item $s->kata2hira
+
+カタカナをひらがなに変換します．
+
+=item $str = $s->jis
+
+$str: JIS エンコーディング形式のバイト列
+
+文字列を JIS（ISO-2022-JP） コードで取り出します．
+
+=item $str = $s->euc
+
+$str: euc-jp エンコーディング形式のバイト列
+
+文字列を EUC-JP コードで取り出します．
+
+=item $str = $s->utf8
+
+$str: utf-8 エンコーディング形式のバイト列
+
+文字列を UTF-8 コードで取り出します．
+
+perl-5.8.0 以降においても, バイト列を返します.
+
+=item $str = $s->ucs2
+
+$str: ucs2 エンコーディング形式のバイト列
+
+文字列を UCS2 コードで取り出します．
+
+=item $str = $s->ucs4
+
+$str: ucs4 エンコーディング形式のバイト列
+
+文字列を UCS4 コードで取り出します．
+
+=item $str = $s->utf16
+
+$str: ucs-16 エンコーディング形式のバイト列
+
+文字列を UTF-16 コードで取り出します．
+BOMは付きません．
+ビックエンディアン形式で返されます．
+
+=item $str = $s->sjis
+
+$str: sjis エンコーディング形式のバイト列
+
+文字列を SJIS（MS-CP932） コードで取り出します．
+
+=item $str = $s->sjis_imode
+
+$str: sjis/imode絵文字 エンコーディング形式のバイト列
+
+文字列を i-mode 端末向けの SJIS コードで取り出します．
+最新のimode絵文字の別名です.
+
+=item $str = $s->sjis_imode1
+
+$str: sjis/imode 絵文字 エンコーディング形式のバイト列
+
+文字列を i-mode 端末向けの SJIS コードで取り出します．
+基本絵文字だけから成ります.
+
+=item $str = $s->sjis_imode2
+
+$str: sjis/imode 絵文字 エンコーディング形式のバイト列
+
+文字列を i-mode 端末向けの SJIS コードで取り出します．
+基本絵文字, 拡張絵文字を含みます.
+
+=item $str = $s->sjis_doti
+
+$str: sjis/dot-i 絵文字 エンコーディング形式のバイト列
+
+文字列を dot-i 端末向けの SJIS コードで取り出します．
+
+=item $str = $s->sjis_jsky
+
+$str: sjis/j-sky 絵文字 エンコーディング形式のバイト列
+
+文字列を j-sky 端末向けの SJIS コードで取り出します．
+最新のj-sky絵文字(VERSION 0.15 では, jsky2)の別名です.
+
+=item $str = $s->sjis_jsky1
+
+$str: sjis/j-sky 絵文字 エンコーディング形式のバイト列
+
+文字列を j-sky 端末向けの SJIS コードで取り出します．
+Page 1～3 のみの絵文字を含みます.
+
+=item $str = $s->sjis_jsky
+
+$str: sjis/j-sky 絵文字 エンコーディング形式のバイト列
+
+文字列を j-sky 端末向けの SJIS コードで取り出します．
+Page 1～6 の絵文字を含みます.
+
+=item $str = $s->sjis_icon_au
+
+$str: sjis/AU iconタグ エンコーディング形式のバイト列
+
+文字列を AU 端末向けの SJIS コードで取り出します．
+
+=item $str_arrayref = $s->strcut($len)
+
+=over 2
+
+=item $len: 分割する文字数(全角相当)
+
+=item $str_arrayref: 文字列
+
+=back
+
+I<$len>で指定された文字数(全角)以下の文字列の配列に分割します．
+
+配列の各要素は, utf-8 フラグを持ったutf-8文字列です.
+
+=item $len = $s->strlen
+
+$len: 文字列の表示幅
+
+UTF-8 文字に対して length() を使うと全角文字は１文字あたり長さ 3 になってしまいますが，
+このメソッドを使用すると，従来の SJIS のように，全角文字は１文字あたり長さ 2 を返します．
+
+=item $s->join_csv(@values);
+
+@values: データ配列
+
+配列を CSV 文字列に変換し，インスタンスに格納します．
+文字列の最後には改行("\n")が追加されます．
+
+=item @values = $s->split_csv;
+
+@values: データ配列
+
+インスタンスに格納されている文字列を CSV と見なし，配列に分割します．
+文字列の最後にある改行("\n")は取り除かれてから分割されます．
+
+入力が binary でなければ utf-8 文字列を返します.
+binary だったときはバイト列を返します.
+
+=back
+
+=head1 サポートされているエンコーディング
+
+ +---------------+----+-----+-------+
+ |encoding       | in | out | guess |
+ +---------------+----+-----+-------+
+ |auto           : OK : --  | ----- |
+ +---------------+----+-----+-------+
+ |utf8           : OK : OK  | OK    |
+ |ucs2           : OK : OK  | ----- |
+ |ucs4           : OK : OK  | ----- |
+ |utf16-be       : OK : --  | ----- |
+ |utf16-le       : OK : --  | ----- |
+ |utf16          : OK : OK  | OK(#) |
+ |utf32-be       : OK : --  | OK    |
+ |utf32-le       : OK : --  | OK    |
+ |utf32          : OK : --  | OK(#) |
+ +---------------+----+-----+-------+
+ |sjis           : OK : OK  | OK    |
+ |cp932          : OK : OK  | ----- |
+ |euc            : OK : OK  | OK    |
+ |euc-jp         : OK : OK  | ----- |
+ |jis            : OK : OK  | OK    |
+ +---------------+----+-----+-------+
+ |sjis-imode     : OK : OK  | OK    |
+ |sjis-imode1    : OK : OK  | ----- |
+ |sjis-imode2    : OK : OK  | ----- |
+ |utf8-imode     : OK : OK  | ----- |
+ |utf8-imode1    : OK : OK  | ----- |
+ |utf8-imode2    : OK : OK  | ----- |
+ +---------------+----+-----+-------+
+ |sjis-doti      : OK : OK  | OK    |
+ |sjis-doti1     : OK : OK  | ----- |
+ +---------------+----+-----+-------+
+ |sjis-jsky      : OK : OK  | OK    |
+ |sjis-jsky1     : OK : OK  | ----- |
+ |sjis-jsky2     : OK : OK  | ----- |
+ |jis-jsky       : OK : OK  | ----- |
+ |jis-jsky1      : OK : OK  | ----- |
+ |jis-jsky2      : OK : OK  | ----- |
+ |utf8-jsky      : OK : OK  | ----- |
+ |utf8-jsky1     : OK : OK  | ----- |
+ |utf8-jsky2     : OK : OK  | ----- |
+ +---------------+----+-----+-------+
+ |sjis-au        : OK : OK  | OK    |
+ |sjis-au1       : OK : OK  | ----- |
+ |sjis-au2       : OK : OK  | ----- |
+ |jis-au         : OK : OK  | ----- |
+ |jis-au1        : OK : OK  | ----- |
+ |jis-au2        : OK : OK  | ----- |
+ |sjis-icon-au   : OK : OK  | ----- |
+ |sjis-icon-au1  : OK : OK  | ----- |
+ |sjis-icon-au2  : OK : OK  | ----- |
+ |euc-icon-au    : OK : OK  | ----- |
+ |euc-icon-au1   : OK : OK  | ----- |
+ |euc-icon-au2   : OK : OK  | ----- |
+ |jis-icon-au    : OK : OK  | ----- |
+ |jis-icon-au1   : OK : OK  | ----- |
+ |jis-icon-au2   : OK : OK  | ----- |
+ |utf8-icon-au   : OK : OK  | ----- |
+ |utf8-icon-au1  : OK : OK  | ----- |
+ |utf8-icon-au2  : OK : OK  | ----- |
+ +---------------+----+-----+-------+
+ |ascii          : OK : --  | OK    |
+ |binary         : OK : OK  | ----- |
+ +---------------+----+-----+-------+
+ (#): guessed when it has bom.
+
+=head2 自動認識優先順位
+
+ 1.  utf32 (#)
+ 2.  utf16 (#)
+ 3.  utf32-be
+ 4.  utf32-le
+ 5.  ascii
+ 6.  jis
+ 7.  sjis-jsky (pp)
+ 8.  euc
+ 9.  sjis
+ 10. sjis-jsky (xs)
+ 11. sjis-au
+ 12. sjis-imode
+ 13. sjis-doti
+ 14. utf8
+ 15. unknown
+
+=head1 DESCRIPTION OF UNICODE MAPPING
+
+Unicode とのマッピングは以下のように行われます．
+
+=over 2
+
+=item Shift_JIS
+
+MS-CP932 として Unicode へマッピングを行います．
+マッピングテーブルは以下のURLのものを使用しています．
+
+L<< ftp://ftp.unicode.org/Public/MAPPINGS/VENDORS/MICSFT/WINDOWS/CP932.TXT >>
+
+
+Unicode から SJIS へマッピングする場合に，表現できない文字があると，
+その文字は &#dddd; 形式に変換します．
+ただし，携帯絵文字は「?」に変換されます．
+
+また，携帯向けの SJIS へ変換するときは，全ての表現できない文字は「?」に変換されます．
+
+=item EUC-JP/ISO-2022-JP
+
+一度SJISコードに変換してから，Unicode へマッピングします．
+このとき，SJIS で表現できない文字が含まれていた場合，
+その文字は正しくマッピングできません．
+
+=item DoCoMo i-mode
+
+F800 - F9FF の領域のうち絵文字が存在する部分を，U+0FF800 - U+0FF9FF
+の領域にマッピングします．
+
+=item ASTEL dot-i
+
+F000 - F4FF の領域のうち絵文字が存在する部分を，U+0FF000 - U+0FF4FF
+の領域にマッピングします．
+
+=item J-PHONE J-SKY
+
+J-SKY の絵文字は，エスケープシーケンス "\e\$" の後に，絵文字1バイト目，
+1つ以上の絵文字2バイト目，"\x0f"，と続きます．
+1バイト目が同じ絵文字が続く場合は，2バイト目のみを連続して書くことで
+圧縮することができます．
+
+この1バイト目と2バイト目のペアを1文字と見なして，4500 - 47FF の領域を，
+U+0FFB00 - U+0FFDFF の領域にマッピングします．
+
+Unicode::Japanese では，Unicode から J-SKY 絵文字にマッピングするとき，
+1バイト目が同一である絵文字が連続している場合は，圧縮処理を自動的に行います．
+
+=item AU
+
+絵文字が存在する部分を，U+0FF500 - U+0FF6FF の領域にマッピングします．
+
+=back
+
+=head1 PurePerl mode
+
+   use Unicode::Japanese qw(PurePerl);
+
+use 時の引数に C<'PurePerl'> を与えることで, 
+XSを使わないことを明示的に宣言できます.
+
+=head1 バグ
+
+バグや要望は C<bug-unicode-japanese at rt.cpan.org> 宛に
+報告してください. 若しくは
+L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Unicode-Japanese>.
+にある web インターフェースからでもかまいません.
+そこから私に通知され, そして私が変更を行うことで報告頂いたバグの進捗は
+自動的にあなたに伝わります.
+
+=over 2
+
+=item *
+
+
+
+EUC-JP，JIS コードは，SJIS に変換されてから UTF-8 へ変換されるため，
+SJIS で表現できない文字列は正しく変換することはできません．
+
+=item *
+
+
+
+XSを使用している場合，EUC-JP，SJIS(絵文字含む)コードの文字列中に
+\e が含まれると，EUC-JP，SJIS コードの判定に失敗し，
+正しく自動判別や変換を行うことが出来ません．
+
+=item *
+
+
+
+Japanese.pm はファイル後半にバイナリを含むため，FTP の ASCII モードで
+転送するとファイルが壊れます．
+
+=back
+
+=head1 サポート
+
+このモジュールのドキュメントは perldoc コマンドで見ることが出来ます.
+
+    perldoc Unicode::Japanese
+
+また, 以下の場所でも見ることが出来ます:
+
+=over 4
+
+=item * AnnoCPAN: Annotated CPAN documentation
+
+L<http://annocpan.org/dist/Unicode-Japanese>
+
+
+=item * CPAN Ratings
+
+L<http://cpanratings.perl.org/d/Unicode-Japanese>
+
+
+=item * RT: CPAN's request tracker
+
+L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Unicode-Japanese>
+
+
+=item * Search CPAN
+
+L<http://search.cpan.org/dist/Unicode-Japanese>
+
+
+=back
+
+=head1 CREDITS
+
+Thanks very much to:
+
+
+NAKAYAMA Nao
+
+
+SUGIURA Tatsuki & Debian JP Project
+
+
+=head1 著作権及びライセンス
+
+Copyright 2001-2008
+SANO Taku (SAWATARI Mikage) and YAMASHINA Hio,
+all rights reserved.
+
+
+このプログラムはフリーソフトウェアです。あなたは Perl と同じ
+ライセンスの 元で再配布及び変更を行うことが出来ます.
+