En Perl, en utilisant Moo
, vous pouvez implémenter des around
sous-marins, qui encapsuleront d'autres méthodes dans une classe.
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";
};
Comment ce comportement peut-il être implémenté dans Raku , de préférence en utilisant un role
?