| 15 |
use vars qw($VERSION); |
use vars qw($VERSION); |
| 16 |
$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}; |
| 17 |
use base qw(Encode::Encoding); |
use base qw(Encode::Encoding); |
| 18 |
__PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7/); |
__PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7 |
| 19 |
|
7bit-jis/); |
| 20 |
require Encode::ISO2022; |
require Encode::ISO2022; |
| 21 |
|
|
| 22 |
sub encode ($$;$) { |
sub encode ($$;$) { |
| 35 |
=item iso-2022-7bit |
=item iso-2022-7bit |
| 36 |
|
|
| 37 |
ISO/IEC 2022 based 7-bit encoding using only G0 |
ISO/IEC 2022 based 7-bit encoding using only G0 |
| 38 |
(Alias: junet, jis, jis7, iso-2022-7) |
(Alias: junet (emacsen), jis, jis7, iso-2022-7 (emacsen), 7bit-jis (perl)) |
| 39 |
|
|
| 40 |
=cut |
=cut |
| 41 |
|
|