1 package Encode::Internal;
3 our $VERSION = do {my @r=(q$Revision: 0.30 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r};
4 use base 'Encode::Encoding';
6 # Dummy package that provides the encode interface but leaves data
7 # as UTF-X encoded. It is here so that from_to() works.
9 __PACKAGE__->Define('Internal');
11 Encode::define_alias( 'Unicode' => 'Internal' ) if ord('A') == 65;
15 my ($obj,$str,$chk) = @_;