[p5sagit/p5-mst-13.2.git] / ext / Encode / JP / JP.pm

package Encode::JP;
BEGIN {
    if (ord("A") == 193) {
	die "Encode::JP not supported on EBCDIC\n";
    }
}
use Encode;
our $VERSION = '0.02';
use XSLoader;
XSLoader::load('Encode::JP',$VERSION);

use Encode::JP::JIS;
use Encode::JP::ISO_2022_JP;

1;
__END__
Commit	Line	Data
0e567a6c	1	package Encode::JP;
0f3b375a	2	BEGIN {
	3	if (ord("A") == 193) {
	4	die "Encode::JP not supported on EBCDIC\n";
	5	}
	6	}
0e567a6c	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__