[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / sun4-solaris / Encode / CJKConstants.pm

#
# $Id: CJKConstants.pm,v 1.0 2002/03/28 23:26:28 dankogai Exp $
#

package Encode::CJKConstants;

use strict;

our $RCSID = q$Id: CJKConstants.pm,v 1.0 2002/03/28 23:26:28 dankogai Exp $;
our $VERSION = do { my @r = (q$Revision: 1.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

use Carp;

require Exporter;
our @ISA         = qw(Exporter);
our @EXPORT      = qw();
our @EXPORT_OK   = qw(%CHARCODE %ESC %RE);
our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK, @EXPORT ] );

my %_0208 = (
	       1978 => '\e\$\@',
	       1983 => '\e\$B',
	       1990 => '\e&\@\e\$B',
		);

our %CHARCODE = (
Commit	Line	Data
86530b38 AT	1	#
	2	# $Id: CJKConstants.pm,v 1.0 2002/03/28 23:26:28 dankogai Exp $
	3	#
	4
	5	package Encode::CJKConstants;
	6
	7	use strict;
	8
	9	our $RCSID = q$Id: CJKConstants.pm,v 1.0 2002/03/28 23:26:28 dankogai Exp $;
	10	our $VERSION = do { my @r = (q$Revision: 1.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
	11
	12	use Carp;
	13
	14	require Exporter;
	15	our @ISA = qw(Exporter);
	16	our @EXPORT = qw();
	17	our @EXPORT_OK = qw(%CHARCODE %ESC %RE);
	18	our %EXPORT_TAGS = ( 'all' => [ @EXPORT_OK, @EXPORT ] );
	19
	20	my %_0208 = (
	21	1978 => '\e\$\@',
	22	1983 => '\e\$B',
	23	1990 => '\e&\@\e\$B',
	24	);
	25
	26	our %CHARCODE = (
	27