}
}
use strict;
-our $VERSION = do {my @r=(q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r};
+our $VERSION = do { my @r = (q$Revision: 0.94 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+
use Encode qw(find_encoding);
use base 'Encode::Encoding';
use Carp;
require Encode::Tcl::Table;
require Encode::Tcl::Escape;
-require Encode::Tcl::Extended;
1;
__END__
L<Encode::Tcl::Escape>
-L<Encode::Tcl::Extended>
-
=cut