#============================================================
# Roma2Kana
#============================================================
package Roma2Kana;
use Common;
@ISA = qw(Common);

use strict;

use MyCharConv;

sub Convert {
	my ($s, $charcode, $sourcecharcode) = @_;

	MyCharConv->new()->Roma2Kana($s, $charcode, $sourcecharcode);
}

1;