Parent Directory
| 
Revision Log
2002-10-12 Nanashi-san * SJIS.pm: New module. * SJIS/: New directory. (Commited by Wakaba <w@suika.fam.cx>)
| 1 | wakaba | 1.1 | =head1 NAME |
| 2 | |||
| 3 | Encode::ISO2022::ISO646 --- Encode and decode of versions of | ||
| 4 | ISO/IEC 646 | ||
| 5 | |||
| 6 | =head1 ENCODINGS | ||
| 7 | |||
| 8 | =over 4 | ||
| 9 | |||
| 10 | =cut | ||
| 11 | |||
| 12 | require 5.7.3; | ||
| 13 | use strict; | ||
| 14 | package Encode::ISO2022::ISO646; | ||
| 15 | use vars qw($VERSION); | ||
| 16 | wakaba | 1.4 | $VERSION=do{my @r=(q$Revision: 1.3 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 17 | wakaba | 1.1 | use base qw(Encode::Encoding); |
| 18 | require Encode::ISO2022; | ||
| 19 | |||
| 20 | sub encode ($$;$) { | ||
| 21 | my ($obj, $str, $chk) = @_; | ||
| 22 | $_[1] = '' if $chk; | ||
| 23 |