Pod::Usage, pod2usage() - 埋め込まれた pod ドキュメントから usage メッセージを表示 名前 Pod::Usage, pod2usage() - 埋め込まれた pod ドキュメントから usage メッセージを表示 概要 use Pod::Usage my $message_text = "This text precedes the usage message."; my $exit_status = 2; ## The exit status to use my $verbose_level = 0; ## The verbose level to use my $filehandle = \*STDERR; ## The filehandle to write to pod2usage($message_text); pod2usage($exit_