[p5sagit/p5-mst-13.2.git] / ext / Encode / lib / Encode / Internal.pm

package Encode::Internal;
use strict;
our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

use base 'Encode::Encoding';

# Dummy package that provides the encode interface but leaves data
# as UTF-X encoded. It is here so that from_to() works.

__PACKAGE__->Define('Internal');

Encode::define_alias( 'Unicode' => 'Internal' ) if ord('A') == 65;

sub decode
{
    my ($obj,$str,$chk) = @_;
  utf8::upgrade($str);
    $_[1] = '' if $chk;
    return $str;
}

*encode = \&decode;
1;
__END__
Commit	Line	Data
18586f54	1	package Encode::Internal;
18586f54	2	use strict;
d6b7ef86	3	our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
d6b7ef86	4
18586f54	5	use base 'Encode::Encoding';
	6
	7	# Dummy package that provides the encode interface but leaves data
	8	# as UTF-X encoded. It is here so that from_to() works.
	9
	10	__PACKAGE__->Define('Internal');
	11
	12	Encode::define_alias( 'Unicode' => 'Internal' ) if ord('A') == 65;
	13
	14	sub decode
	15	{
	16	my ($obj,$str,$chk) = @_;
	17	utf8::upgrade($str);
	18	$_[1] = '' if $chk;
	19	return $str;
	20	}
	21
	22	*encode = \&decode;
	23	1;
	24	__END__