| 1 | # |
| 2 | # $Id: CJKConstants.pm,v 2.0 2004/05/16 20:55:16 dankogai Exp $ |
| 3 | # |
| 4 | |
| 5 | package Encode::CJKConstants; |
| 6 | |
| 7 | use strict; |
| 8 | |
| 9 | our $RCSID = q$Id: CJKConstants.pm,v 2.0 2004/05/16 20:55:16 dankogai Exp $; |
| 10 | our $VERSION = do { my @r = (q$Revision: 2.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 |