Cách thực hiện xung quanh trong Raku

Trong Perl, bằng cách sử dụng Moo, bạn có thể triển khai aroundsubs, sẽ bao quanh các phương thức khác trong một lớp.

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";
};

Làm thế nào hành vi này có thể được thực hiện trong Raku , tốt nhất là sử dụng một role?

Bạn có thể tạo bóng cho phương thức với vai trò và sau đó sử dụng callwith:

class Foo {
    method meth { say 2 }
}

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

$foo.meth

Phương thức :: Sửa đổi

Các hàm thực hiện trước các hàm (), after () và quanh () có thể được sử dụng để sửa đổi các phương thức lớp tương tự như Moose của Perl 5. Nó sử dụng bọc () bên trong và trả về trình xử lý trình bao bọc, do đó rất dễ dàng để .restore () bản gốc.

Đây là cách mô-đun thực hiện around:

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

Sử dụng wrap

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

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

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

Vì các phương thức là các thói quen, bạn sẽ cần một cách phức tạp hơn một chút để có thể xử lý chính phương thức đó, nhưng ngoài ra, phương thức này hoàn toàn giống nhau, vì Methods là một lớp con của 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þ ← »

Các $wrappedlà một xử lý mà có thể được sử dụng, sau này, để Unwrap nó nếu cần thiết.

Chỉnh sửa : để thêm mã để xử lý phương thức lớp, lấy từ đây , ví dụ.