perl - HTML::FormHandler 子类字段

Question

我正在使用HTML::FormHandler，为了不重复代码，我想利用它的子类化功能。目前我有两种形式：

myapp::Form::Account::Base
myapp::Form::Account::Register

myapp::Form::Account::Register继承自myapp::Form::Account::Base。myapp::Form::Account::Base有一个电子邮件字段，定义如下：

has_field 'email' => (
    label            => 'Email',
    type             => 'Text',
    apply            => [ Email ],
    element_class    => [qw/email/],
    required         => 1,
    unique           => 1,
    element_attr => {autocomplete=>"off"}, #for register page
);

在myapp::Form::Account::Register中，我想要定义完全相同的电子邮件字段，但我想向其中添加“uniqueemail”类。但是，每当我这样做时：

has_field 'email' => (
    element_class    => [qw/uniqueemail/],
);

在myapp::Form::Account::Register，它只是完全覆盖了父表单对电子邮件字段的定义，并创建了一个新的。无论如何，只是将父表单字段子类化或添加到它，还是我只需要再次重新定义电子邮件字段以获得我想要的更改？谢谢！

score 2 · Accepted Answer

您可以通过在字段名称前使用“+”来提供覆盖父定义的字段定义：

has_field '+email' => (
    element_class    => [qw/uniqueemail/],
);

score 1 · Accepted Answer

您可以制作自定义字段类型。查看 HTML::FormHandler::Field::Text 或 HTML::FormHandler::Field::Email 的定义：

然后使用您想要的默认值设置您的电子邮件类型。然后在 myapp::Form::Account::Base 中，您的电子邮件字段将如下所示：

has_field 'email' => (
    type             => '+myapp::Form::Account::CustomEmail'
);

然后在 myapp::Form::Account::Register 中：

has_field 'email' => (
    type             => '+myapp::Form::Account::CustomEmail',
    element_class    => [qw/uniqueemail/],
);

perl - HTML::FormHandler 子类字段

2 回答 2

Related

Reference