Encode/ISO2022/RFC1345.pm

=head1 NAME

Encode::ISO2022::RFC1345 --- Encode and decode of ISO/IEC 2022
based encodings described in IETF RFC 1345 (and not defined by
other standards)

=head1 ENCODINGS

=over 4

=cut

require 5.7.3;
use strict;
package Encode::ISO2022::RFC1345;
use vars qw($VERSION);
$VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
use base qw(Encode::Encoding);
require Encode::ISO2022;

sub encode ($$;$) {
1	wakaba	1.1	=head1 NAME
2
3			Encode::ISO2022::RFC1345 --- Encode and decode of ISO/IEC 2022
4			based encodings described in IETF RFC 1345 (and not defined by
5			other standards)
6
7			=head1 ENCODINGS
8
9			=over 4
10
11			=cut
12
13			require 5.7.3;
14			use strict;
15			package Encode::ISO2022::RFC1345;
16			use vars qw($VERSION);
17	wakaba	1.2	$VERSION=do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
18	wakaba	1.1	use base qw(Encode::Encoding);
19			require Encode::ISO2022;
20
21			sub encode ($$;$) {
22