package Encode::Internal;
use strict;
-our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+our $VERSION = do { my @r = (q$Revision: 1.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
use base 'Encode::Encoding';
__PACKAGE__->Define('Internal');
-Encode::define_alias( 'Unicode' => 'Internal' ) if ord('A') == 65;
+if (ord('A') == 65){
+ Encode::define_alias( 'Unicode' => 'Internal' );
+}
sub decode
{
*encode = \&decode;
1;
__END__
+
+=head1 NAME
+
+Encode::Internal -- for internal use only
+
+=cut