2009-07-01から1ヶ月間の記事一覧
パッケージ内関数検索や、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; これで一発でし…
パッケージ内関数検索や、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; これで一発でし…
