如何在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" }