Re: ext/Encode/t/Tcl.t on VMS @15173

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

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

__PACKAGE__->Define('Unicode') unless ord('A') == 65;

sub decode
{
    my ($obj,$str,$chk) = @_;
    my $res = '';
    for (my $i = 0; $i < length($str); $i++)
    {
	$res .= chr(utf8::unicode_to_native(ord(substr($str,$i,1))));
    }
    $_[1] = '' if $chk;
    return $res;
}

sub encode
{
    my ($obj,$str,$chk) = @_;
    my $res = '';
    for (my $i = 0; $i < length($str); $i++)
    {
	$res .= chr(utf8::native_to_unicode(ord(substr($str,$i,1))));
    }
    $_[1] = '' if $chk;
    return $res;
}

1;
__END__