पर्ल में, का उपयोग करके Moo
, आप around
उप को लागू कर सकते हैं , जो एक कक्षा में अन्य तरीकों के चारों ओर लपेटेगा।
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";
};
इस व्यवहार को राकू में कैसे लागू किया जा सकता है , अधिमानतः एक का उपयोग करके role
?