package MyCharConv
@ISA = qw()

sub new
my ($module, $buff) = @_;
return $this;

sub DESTROY
my $this = shift;

sub Initialize
my ($this) = @_;

sub getcode
my ($this, $s) = @_;
return Jcode::getcode($s);

sub sjis
my ($this, $s) = @_;
return Jcode->new($s)->sjis();

sub jis
my ($this, $s) = @_;
return Jcode->new($s)->jis();

sub euc
my ($this, $s) = @_;
return Jcode->new($s)->euc();

sub ucs2
my ($this, $s) = @_;
return Jcode->new($s)->ucs2();

sub utf8
my ($this, $s) = @_;
return Jcode->new($s)->utf8();

sub iso_2022_jp
my ($this, $s) = @_;
return Jcode->new($s)->iso_2022_jp();

sub Hankaku2Zenkaku
my ($this, $s, $sourcecharcode, $ConvertKana) = @_;
return $s;
return Jcode->new($s)->h2z();

sub Zenkaku2Hankaku
my ($this, $s, $sourcecharcode, $ConvertKana) = @_;
return $s;
return Jcode->new($s)->z2h();

sub Zenkaku2HankakuKana
my ($this, $s, $sourcecharcode) = @_;
return $s;

sub HankakuKana2Zenkaku
my ($this, $s, $sourcecharcode) = @_;
return $s;

sub Hiragana2Katakana
my ($this, $s, $sourcecharcode) = @_;
return $s;

sub Katakana2Hiragana
my ($this, $s, $sourcecharcode) = @_;
return $s;

sub MIMEEncode
my ($this, $s) = @_;
return Jcode->new($s)->mime_encode();

sub MIMEEncodeByUTF8
my ($this, $s) = @_;
return Jcode->new($s)->MIME_Header();

sub MIMEDecode
my ($this, $s) = @_;
return Jcode->new($s)->mime_decode();

sub tr
my ($this, $s, $from, $to, $opt) = @_;
return Jcode->new($s)->tr($from, $to, $opt);

sub s
my ($this, $s, $pattern, $replace, $opt) = @_;
return Jcode->new($s)->s($pattern, $replace, $opt);

sub match
my ($this, $s, $pattern, $opt) = @_;
return Jcode->new($s)->m($pattern, $opt);

sub convert
my ($this, $pStr, $targetcharcode, $sourcecharcode) = @_;
return $$pStr if($sourcecharcode eq '' or $sourcecharcode eq 'ascii' or $sourcecharcode eq 'binary');
return $$pStr if($targetcharcode eq '' or $targetcharcode eq 'ascii' or $targetcharcode eq 'binary');
return $$pStr;

sub Zen2Han
my ($this, $s, $sourcecharcode) = @_;
return $s;
return $s;

sub Roma2Kana
my ($this, $s, $charcode, $sourcecharcode) = @_;
return $ret;

sub Conv2Hiragana
my ($this, $s, $sourcecharcode, $targetcharcode) = @_;
return $this->Katakana2Hiragana($s, $sourcecharcode, $targetcharcode);
return $this->Kakasi($s, $sourcecharcode, $targetcharcode, qw/-aH -jH -KH -JH -EH -kH/);
return $this->Kakasi($s, $sourcecharcode, $targetcharcode, qw/-ieuc -oeuc -aH -jH -KH -JH -EH -kH/);

sub Conv2Roma
my ($this, $s, $sourcecharcode, $targetcharcode) = @_;
return $this->Kakasi($s, $sourcecharcode, $targetcharcode, qw/-Ha -ja -Ka -Ja -Ea -ka/);
return $this->Kakasi($s, $sourcecharcode, $targetcharcode, qw/-ieuc -oeuc -Ha -ja -Ka -Ja -Ea -ka/);

sub Kakasi
my ($this, $s, $sourcecharcode, $targetcharcode, @options) = @_;
return $s if($s eq '');
return $s;