Parent Directory
| 
Revision Log
2002-09-23 Wakaba <w@suika.fam.cx> * ISO646.pm, RFC1345.pm: Updated. They now cover akmost all ISO/IEC 2022-based charsets described in IETF RFC 1345.
| 1 | wakaba | 1.1 | =head1 NAME |
| 2 | |||
| 3 | Encode::ISO2022::SevenBit --- Encode and decode of 7-bit ISO/IEC 2022 | ||
| 4 | based encodings | ||
| 5 | |||
| 6 | =head1 ENCODINGS | ||
| 7 | |||
| 8 | =over 4 | ||
| 9 | |||
| 10 | =cut | ||
| 11 | |||
| 12 | require 5.7.3; | ||
| 13 | use strict; | ||
| 14 | package Encode::ISO2022::SevenBit; | ||
| 15 | use vars qw($VERSION); | ||
| 16 | wakaba | 1.7 | $VERSION=do{my @r=(q$Revision: 1.6 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 17 | wakaba | 1.1 | use base qw(Encode::Encoding); |
| 18 | wakaba | 1.7 | __PACKAGE__->Define (qw/iso-2022-7bit iso-2022-7 jis junet jis7 |
| 19 | 7bit-jis/); | ||
| 20 | wakaba | 1.1 | require Encode::ISO2022; |
| 21 | |||
| 22 | sub encode ($$;$) { | ||