Encode/Unicode/UTF1.pm

require 5.8.0;
package Encode::Unicode::UTF1;
use strict;
use vars qw(%DEFAULT $VERSION);
$VERSION=do{my @r=(q$Revision: 1.30 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
use base qw(Encode::Encoding);
__PACKAGE__->Define (qw/utf-1 utf1 ISO-10646-UTF-1 csISO10646UTF1 iso-ir-178/);

sub encode ($$;$) {
  my ($obj, $str, $chk) = @_;
  my @str = split //, $str;
  $str = '';
  for (@str) {
    $str .= join '', map {chr} _ucs4toutf1 (ord $_);
  }
  $_[1] = '' if $chk;
  return $str;
}

sub decode ($$;$) {
  my ($obj, $str, $chk) = @_;
  $str =~ s
1	wakaba	1.1	require 5.8.0;
2			package Encode::Unicode::UTF1;
3			use strict;
4			use vars qw(%DEFAULT $VERSION);
5			$VERSION=do{my @r=(q$Revision: 1.30 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
6			use base qw(Encode::Encoding);
7			__PACKAGE__->Define (qw/utf-1 utf1 ISO-10646-UTF-1 csISO10646UTF1 iso-ir-178/);
8
9			sub encode ($$;$) {
10			my ($obj, $str, $chk) = @_;
11			my @str = split //, $str;
12			$str = '';
13			for (@str) {
14			$str .= join '', map {chr} _ucs4toutf1 (ord $_);
15			}
16			$_[1] = '' if $chk;
17			return $str;
18			}
19
20			sub decode ($$;$) {
21			my ($obj, $str, $chk) = @_;
22			$str =~ s