Commit | Line | Data |
18586f54 |
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__ |