[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / Encode / JP / H2Z.pm

#
# $Id: H2Z.pm,v 1.2 2002/04/27 18:59:50 dankogai Exp $
#

package Encode::JP::H2Z;

use strict;

our $RCSID = q$Id: H2Z.pm,v 1.2 2002/04/27 18:59:50 dankogai Exp $;
our $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

use Encode::CJKConstants qw(:all);

use vars qw(%_D2Z  $_PAT_D2Z
	    %_Z2D  $_PAT_Z2D
	    %_H2Z  $_PAT_H2Z
	    %_Z2H  $_PAT_Z2H);

%_H2Z = (
Commit	Line	Data
86530b38 AT	1	#
	2	# $Id: H2Z.pm,v 1.2 2002/04/27 18:59:50 dankogai Exp $
	3	#
	4
	5	package Encode::JP::H2Z;
	6
	7	use strict;
	8
	9	our $RCSID = q$Id: H2Z.pm,v 1.2 2002/04/27 18:59:50 dankogai Exp $;
	10	our $VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
	11
	12	use Encode::CJKConstants qw(:all);
	13
	14	use vars qw(%_D2Z $_PAT_D2Z
	15	%_Z2D $_PAT_Z2D
	16	%_H2Z $_PAT_H2Z
	17	%_Z2H $_PAT_Z2H);
	18
	19	%_H2Z = (
	20