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 );
9 __PACKAGE__->Define(qw(UTF-8 utf8));
13 my ($obj,$octets,$chk) = @_;
14 my $str = Encode::decode_utf8($octets);
25 my ($obj,$string,$chk) = @_;
26 my $octets = Encode::encode_utf8($string);