パッケージ内関数検索や、eval なんてしなくていいんですね。 sub dispatcher { my $callee = shift; my $param = shift; my $pkg = caller; $pkg->can($callee) or die "Illeagal function called.\n"; return $pkg->$callee($param); } 1; これで一発でし…

Windows Azure の Perl での REST API を紹介するためのサンプルとして掲示板でも作ろうかと思ったのですが、なんというか、見込みの甘さに嵌りました。