ext/Encode/lib/Encode/utf8.pm

   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__