如何在Raku实施

Question

在Perl中，使用Moo，可以围绕sub实现sub，它将围绕类中的其他方法。

around INSERT => sub {
    my $orig = shift;
    my $self = shift;

    print "Before the original sub\n";
    my $rv  = $orig->($self, @_);
    print "After the original sub\n";
};

如何在Raku中实现这种行为，最好使用角色？

Answer 1

使用包装

sub bar () { return "baþ" };

my $wrapped = &bar.wrap( { " → " ~ callsame() ~ " ← " } );

say bar(); # OUTPUT:  «→ baþ ← »

由于方法是例程，您需要一种稍微复杂的方法来处理方法本身，但除此之外，方法是完全相同的，因为Methods是Routines的子类

class Baz {
    method bar () { return "baþ" };
}

my &method_bar = Baz.^find_method("bar");
my $wrapped = &method_bar.wrap( { " → " ~ callsame() ~ " ← " } );

say Baz.bar(); # OUTPUT:  «→ baþ ← »

美元包装是一个句柄，稍后可以在需要时使用它来展开它。

编辑：添加代码以获取类方法的句柄，例如，从这里获取。

Answer 2

方法：：修饰符

实现before（）、after（）和around（）函数，这些函数可用于修改类方法，类似于Perl 5的Moose。它在内部使用wrap（），并返回包装器处理程序，因此很容易。还原（）原始。

这是模块围绕以下内容实现的方法：

sub around ($class, $method-name, &closure) is export
{
  $class.^find_method($method-name).wrap(method { closure(); });
}

Answer 3

您可以使用角色对方法进行阴影处理，然后使用callwith：

class Foo {
    method meth { say 2 }
}

my $foo = Foo.new but role :: {
    method meth(|c) { say 1; callwith(|c); say 3 }
};

$foo.meth