サブルーチンのプロトタイプを取得する
prototype はサブルーチン FUNCTION のプロトタイプを文字列として返します。
FUNCTION にはサブルーチンの参照または名前を指定します。
省略されたら $_ が使われます。
指定のサブルーチンにプロトタイプが指定されていなければ、prototype は
undef を返します。
次のサンプルコードは、サブルーチンの名前を prototype に引き渡しています。
sub my_func : prototype($$) {
my ( $arg1, $arg2 ) = @_;
}
print prototype('my_func'), "\n"; # $$
次のサンプルコードは、prototype にサブルーチンの参照を引き渡しています。
my $my_func = sub : prototype($$) {
my ( $arg1, $arg2 ) = @_;
};
print prototype($my_func), "\n"; # $$
プロトタイプの詳細については、 perlsub を参照してください。