- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我用 perl 构建了一个信息检索工具,使用 Moose 作为框架。
我有一个用于插件的类层次结构,其中 Base
作为插件的公共(public)基类,特定插件的访问方法从中继承(方法是 HTTP、FTP、IMAP 等)。
从这些子类中,实际的工作类继承(每个数据源一个插件)。
我使用 Moose 角色将特定于源的行为组合到实际的工作类中(例如在 HTTP 源中启用对 SSL 客户端证书的支持)。
其中一个方法特定类 (Base::A
) 需要角色 R
。相同的角色 R
也被角色 S
使用,然后由工作类 X
使用,继承自 Base::A
.
我的问题是 R
中的方法修饰符对 X
应用了两次。有没有办法阻止 Moose 将方法修饰符应用于已经应用于其中一个父类的类?
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use v5.14;
{
package R;
use Moose::Role;
before 'bar' => sub { say "R::before'bar'()" }
}
{
package S;
use Moose::Role;
with 'R';
before 'bar' => sub { say "S::before'bar'()" }
}
{
package Base;
use Moose;
sub foo { say "Hello foo()"; }
}
{
package Base::A;
use Moose;
extends 'Base';
with 'R';
sub bar { $_[0]->foo(); say "Hello bar()"; }
}
{
package X;
use Moose;
extends 'Base::A';
with 'S';
}
package main;
my $a = X->new();
$a->bar();
S::before'bar'()
R::before'bar'()
R::before'bar'()
Hello bar()
R::before'bar'()
行应该只出现一次。
最佳答案
首先,您的示例可以简单得多:
{
package R;
use Moose::Role;
before 'bar' => sub { say "R::before'bar'()" }
}
{
package Base;
use Moose;
with 'R';
sub foo { say "Hello foo()"; }
sub bar { $_[0]->foo(); say "Hello bar()"; }
}
{
package X;
use Moose;
extends 'Base';
with 'R';
}
package main;
X->new()->bar();
输出是:
R::before'bar'()
R::before'bar'()
Hello foo()
Hello bar()
我同意这有点出乎意料,但如果你仔细想想,这一切都是有道理的。角色不是基类,角色不是带有实现的接口(interface)(参见 Java),角色甚至不是 Python 意义上的“mixins”(在 Python 中我们实际上是从 mixins 继承的,但这只是语言限制)。角色只是您应用于您的类(class)的一堆功能(属性、方法、修饰符等)。这是一次性的 Action 。具有角色的类不会“记住”它,它只是在创建类时被应用。您不从角色继承,所以您不应该期望 Moose 实现一些 diamond合并同一角色的多个申请。
另一方面,如果您尝试执行 with qw(R S);
然后 R
令人惊讶的是(或者可能不是真的)只应用了一次。
现在进入实际问题。由于您希望“之前”相互覆盖,因此您可以放弃使用 before
完全并将其重构为一个简单的方法(就像您在不支持此类修饰符的任何其他语言中所做的那样):
sub bar {
my ($self) = @_;
$self->_before_bar_hook();
# ...
}
sub _before_bar_hook {}
前后修饰符和角色都是非常高级的 Moose 功能,我对某些奇怪的副作用(如您所发现的)并不感到惊讶。尽管我相信我的解释大部分是正确的,但我不建议使用需要此类解释的内容。
我个人完全避免使用前/后修饰符,因为我更喜欢显式调用 Hook (如上所示)。
关于perl - Moose 两次应用方法修饰符,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/45999416/
我正在将旧应用程序转换为使用 Moose(和 Catalyst)并有以下问题。 如何确定用户输入的数据的 Moose 类型? 在下面的粗略示例中,我“提交”多个查询并使用下面非常基本的“验证”方法针对
从另一个 Moose 对象创建实例的正确方法是什么?在实践中,我已经看到这是通过多种方式完成的: $obj->meta->name->new() $obj->new() ## which has b
假设您有一个 Moose 类,它需要一个执行角色的属性: package MyMooseClass; use Moose; has 'a' => ( does => 'MyRole' ); 现在,我想
Moose types很棒,但有时您需要更具体。这些数据类型规则你们都知道:那个参数只能是'A' , 'B'或 'C' ,或者只是一个货币符号,或者必须符合一些正则表达式。 看看下面的例子,它有两个受
试图构建一种优雅的方式来序列化带有嵌套 Moose 对象的 Moose 对象。例子: package Asset; use Moose::Role; has 'value' => ( isa =>
我正在寻找一种在父级中设置一些辅助方法的方法 Moose类,而不是独立的实用程序类。如果可能的话,这将是一种将 Moose 糖添加到模块的更透明的方式,因为它不需要明确要求任何辅助模块(因为一切都将通
令我沮丧的是,我注意到 MooseX::Method不再维护和弃用。 包裹MooseX-Method-Signatures被宣传为替代品,但其文档说:这是 ALPHA SOFTWARE。使用风险自负。
我正在尝试创建一个对象,该对象将从网络中获取资源,并且需要记住最终找到资源的位置以及我们为其提供的原始 URL。 我不想必须两次指定 URL,也不想每次我想使用 URL 来确定我应该使用“url”属性
我有一个角色声明它需要一个方法(使用requires)。我试图通过直接在类的符号表中定义来安装该方法。但是,在某些情况下它有效,而在其他情况下则无效。 在下文中,WORKS 表示未报告任何错误,DOE
基本架构 我用 perl 构建了一个信息检索工具,使用 Moose 作为框架。 我有一个用于插件的类层次结构,其中 Base 作为插件的公共(public)基类,特定插件的访问方法从中继承(方法是 H
如何设置 Moose 只读属性特征? package AttrTrait; use Moose::Role; has 'ext' => ( isa => 'Str', is => 'ro' ); pa
我开始使用 Moose,我有以下问题。似乎我可以分配我没有在模块中指定的属性。如果我尝试访问此属性,则会出现错误消息。我怎样才能阻止模块中未指定的属性的分配?在下面的示例中,我指定了年龄,但我没有在模
package Point; use Moose; has 'x' => (isa => 'Int', is => 'rw'); has 'y' => (isa => 'Int', is => 'rw
我想要实现的是创建一个导入多个角色的 Moose 类。这是我多年来一直在做的事情,没有任何问题,尽管我目前坚持为什么下面的简单示例会产生方法名称冲突。 package logrole; use Moo
我试图找出一种方法来查看我的一个懒惰构建的属性是否已设置。我已经搜索了两个文档 驼鹿::元::属性和 类::MOP::属性 ,并看到了 get_value和 has_value方法,但它们似乎对我不起
使用 Moose 时自定义初始化某些属性的典型方法是什么? 例如,假设我将两个字符串格式的日期作为我的类的输入: has startdate => (is => 'ro', isa => 'Str'
我写了一个简单的Moose基于类称为 Document .这个类有两个属性:name和 homepage . 该类还需要提供一个名为 do_something() 的方法。它根据 homepage 从
我正在尝试使用 Perl 和 Moose 编写单例角色。我知道 MooseX::Singleton 模块可用,但是当我们的项目需要另一个 CPAN 模块时总是会遇到阻力。在尝试了这个并遇到了一些麻烦之
再次遇到 Moose 对象模型的问题。我不确定是在这里发帖还是发到“codereview”更好 - 先在这里尝试...;) 有一个Region。 该地区有一些 Spot(s)。 每个 Spot 都有
我编写了一组在 Moose 中实现的类和接口(interface)。也使用角色。我难以理解的是 Moose 特征与角色在使用和实现方面的确切差异。 Moose documentation状态: It
我是一名优秀的程序员,十分优秀!