package Encode::Tcl::Table;
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.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+
use base 'Encode::Encoding';
use Carp;
return $uni;
}
-
sub encode
{
my ($obj,$uni,$chk) = @_;