use strict;
sub perlio_ok {
return 0; # for the time being
}
sub decode
{
# This is for PerlIO
}
sub encode
{
# empty the input string in the stack so perlio is ok
return $octet;
}
# ISO<->EUC
sub iso_euc{
my $r_str = shift;
$$r_str =~ s{ # replace characters in GL
\x0e # between SO(\x0e) and SI(\x0f)
([^\x0f]*) # with characters in GR
\x0f
}
{
my $out= $1;
$out;
}geox;
return $residue;
}
sub euc_iso{
no warnings qw(uninitialized);
my $r_str = shift;
$$r_str =~ s{ # move KS X 1001 characters in GR to GL
}{
my $str = $1;
}geox;
$$r_str;
}
1;
=head1 NAME
Encode::KR::2022_KR -- internally used by Encode::KR
=cut