# $Id: Kansai.pm 1.2 2000/04/22 22:28:29 mishima Exp $
package Kansai;
require v5.6.0;

use utf8;
use Exporter;
use Japanese;

our @ISA = qw(Exporter);
our @EXPORT = qw(kansai);

sub kansai {
    s/なぜ(?:なんだ|でしょうか?|ですか?)/なんでやねん/g;
    s/ありがとう(?:ございま(?:す|した))?/おおきに/g;
    s/(の?)でしょう/($1?'ん':'').'やろ'/ge;
    s/になられる/してくれはる/g;
    s/([てで])(いる|います)/
	{'て'=>'と','で'=>'ど'}->{$1}.
	{'いる'=>'る','います'=>'ります'}->{$2}/ge;
    s/(?<=まし)た\b/てん/g;
    s/りますが/るけど/g;
    s/いです([よがね])/
    {'よ'=>'いでっしゃろ','が'=>'いねんけど','ね'=>'いわな'}->{$1}/ge;
    s/((い)?[のん])?(?:だ|です)([よがとね])/
	($2 ? 'いねん' : $1 ? 'んや' : 'や').
	    {'よ'=>'で','が'=>'けど','と'=>'と','ね'=>'な'}->{$3}/ge;
    s/(?<=[^幸][いた])です\b/で/g;
    s/(?:です|である)\b/や/g;
    s/しない(で)/'せえへん'.($1?'といて':'')/ge;
    s/てください/とくんなはれ/g;
    s/てしまう/てまう/g;
    s/ていません/てまへん/g;
    s/ございません/ありまへん/g;
    s/すみません/すんまへん/g;
    s/すいません/すんまへん/g;
    s/(いけ?)?ません/
    {'い'=>'おり','いけ'=>'あき',''=>''}->{$1}.'まへん'/ge;
    s/(?<=[てで])いない/ない/g;
    s/(?<=もう|しか)ない/あらへん/g;
    s/(?<=[が、])ない/あらへん/g;
    s/(?<!で)はない/はあらへん/g;
    s/(?<=[かさなまらわきちりえけせてねめれ])ない/へん/g;
    s/だ(?=と|った|けど)/や/g;
    s/いる/おる/g;
    s/いない/おらん/g;
    s/いい(?=です|こと|[なのよ]|\b)/ええ/g;
    s/という/ちゅう/g;
    s/なぜ(?=[だでな])/なんで/g;
    s/(<?=[なた])んだ/んや/g;
    s/いただいて/もろうて/g;
    s/[私俺]は/わしは/g;
    s/よろしく/よろしゅう/g;
    s/あなた/あんた/g;
    s/だろう/やろ/g;
    s/かな？/かいな？/g;
    s/ってる/っとる/g;
    s/んでる/んどる/g;
} 

1;