perl - perl masonファイルに定数文字列を作成するには?

Question

簡単な質問: perl mason ファイル内に定数文字列を作成する方法はありますか? ハードコードされた文字列を perl ファイルの先頭にある変数に割り当て、それをファイルの残りの部分で使用できるようにしたいと考えています。Javaに相当するもの

private static final String DEFAULT_USERNAME = "Bobby Joe";

Answer 1

Perl での同等の概念はconstantプラグマです:

% use constant DEFAULT_USERNAME => "Bobby Joe";
<h1>Welcome, <% DEFAULT_USERNAME %></h1>

DEFAULT_USERNAMEこれは、あなたが言ったかのように、現在のパッケージで呼び出されるサブルーチンを実際に作成するシンタックス シュガーです。

sub DEFAULT_USERNAME () { "Bobby Joe" }