p4raw-id: //depot/perl@15207
use strict;
no warnings 'redefine'; # to quell the "use Encode" below
+use vars qw($VERSION);
+$VERSION = 0.01;
+
use Encode::CN;
use Encode qw|encode decode|;
use base 'Encode::Encoding';
use Encode::JP::H2Z;
use base 'Encode::Encoding';
+use vars qw($VERSION);
+$VERSION = 0.01;
my $canon = 'iso-2022-jp';
my $obj = bless {name => $canon}, __PACKAGE__;
use strict;
+use vars qw($VERSION);
+$VERSION = 0.01;
+
# Just for the time being, we implement jis-7bit
# encoding via EUC