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

package Encode::utf8;
use strict;
our $VERSION = do {my @r=(q$Revision: 0.30 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r};
use base 'Encode::Encoding';
# package to allow long-hand
#   $octets = encode( utf8 => $string );
#

__PACKAGE__->Define(qw(UTF-8 utf8));

sub decode
{
    my ($obj,$octets,$chk) = @_;
    my $str = Encode::decode_utf8($octets);
    if (defined $str)
    {
	$_[1] = '' if $chk;
	return $str;
    }
    return undef;
}

sub encode
{
    my ($obj,$string,$chk) = @_;
    my $octets = Encode::encode_utf8($string);
    $_[1] = '' if $chk;
    return $octets;
}
1;
__END__
Commit	Line	Data
df1df145	1	package Encode::utf8;
	2	use strict;
	3	our $VERSION = do {my @r=(q$Revision: 0.30 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r};
	4	use base 'Encode::Encoding';
	5	# package to allow long-hand
	6	# $octets = encode( utf8 => $string );
	7	#
	8
	9	__PACKAGE__->Define(qw(UTF-8 utf8));
	10
	11	sub decode
	12	{
	13	my ($obj,$octets,$chk) = @_;
	14	my $str = Encode::decode_utf8($octets);
	15	if (defined $str)
	16	{
	17	$_[1] = '' if $chk;
	18	return $str;
	19	}
	20	return undef;
	21	}
	22
	23	sub encode
	24	{
	25	my ($obj,$string,$chk) = @_;
	26	my $octets = Encode::encode_utf8($string);
	27	$_[1] = '' if $chk;
	28	return $octets;
	29	}
	30	1;
	31	__END__