3
Как реализовать в Раку
В Perl, используя 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"; }; Как это поведение может быть реализовано …