/[suikacvs]/perl/lib/Encode/HZ.pm
Suika

Diff of /perl/lib/Encode/HZ.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by wakaba, Thu Jul 25 11:24:36 2002 UTC revision 1.2 by wakaba, Sun Sep 15 04:15:51 2002 UTC
# Line 2  package Encode::HZ; Line 2  package Encode::HZ;
2  use strict;  use strict;
3    
4  use vars qw($VERSION);  use vars qw($VERSION);
5  $VERSION = do { my @r = (q$Revision$ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };  $VERSION = do {my @r =(q$Revision$ =~ /\d+/g);sprintf "%d."."%02d" x $#r, @r};
6    
7  use Encode ();  use Encode ();
8  require Encode::CN;  require Encode::CN;
# Line 71  sub encode ($$;$) { Line 71  sub encode ($$;$) {
71  package Encode::HZ::HZ8;  package Encode::HZ::HZ8;
72    
73  use base qw(Encode::HZ);  use base qw(Encode::HZ);
74  __PACKAGE__->Define(qw/hz8/);  __PACKAGE__->Define(qw/hz8 x-hz8/);
75    
76  sub encode ($$;$) {  sub encode ($$;$) {
77    my ($obj,$str,$chk) = @_;    my ($obj,$str,$chk) = @_;
# Line 104  Note that Encode::CN::HZ, standard modul Line 104  Note that Encode::CN::HZ, standard modul
104  HZ (HZ-GB-2312 in IANA name), but other variants such as  HZ (HZ-GB-2312 in IANA name), but other variants such as
105  HZ8 can't be encoded/decode.  HZ8 can't be encoded/decode.
106    
107    =head1 TODO
108    
109    Support of extended HZ such as EHZ.
110    
111  =head1 ACKNOWLEDGEMENTS  =head1 ACKNOWLEDGEMENTS
112    
113  Most part of this module is taken from Encode::CN::HZ.  Most part of this module is taken from Encode::CN::HZ.
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24