ext/Encode/KR/KR.pm

   1 package Encode::KR;
   2 our $VERSION = do { my @r = (q$Revision: 0.94 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
   3
   4 use Encode;
   5 use XSLoader;
   6 XSLoader::load('Encode::KR',$VERSION);
   7
   8 Encode::define_alias( qr/euc.*kr$/i     => '"euc-kr"' );
   9 Encode::define_alias( qr/kr.*euc/i      => '"euc-kr"' );
  10
  11 1;
  12 __END__
  13 =head1 NAME
  14
  15 Encode::KR - Korean Encodings
  16
  17 =head1 SYNOPSIS
  18
  19     use Encode qw/encode decode/;
  20     $euc_kr = encode("euc-kr", $utf8);   # loads Encode::KR implicitly
  21     $utf8   = decode("euc-kr", $euc_kr); # ditto
  22
  23 =head1 DESCRIPTION
  24
  25 This module implements Korean charset encodings.  Encodings supported
  26 are as follows.
  27
  28
  29   Canonical   Alias             Description
  30   --------------------------------------------------------------------
  31   euc-kr      /euc.*kr$/i       EUC (Extended Unix Character)
  32               /kr.*euc/i
  33   ksc5601                       Korean standard code set
  34   cp949                         Code Page 949
  35                                 (EUC-KR + Unified Hangul Code)
  36
  37 To find how to use this module in detail, see L<Encode>.
  38
  39 =head1 BUGS
  40
  41 The C<Johab> (two-byte combination code) encoding is not supported.
  42
  43 ASCII part (0x00-0x7f) is preserved for all encodings, even though it
  44 conflicts with mappings by the Unicode Consortium.  See
  45
  46 F<http://www.debian.or.jp/~kubota/unicode-symbols.html.en>
  47
  48 to find why it is implemented that way.
  49
  50 =head1 SEE ALSO
  51
  52 L<Encode>
  53
  54 =cut