解决方法
您可以在
Moose与
method modifiers：
@H_404_10@package Example;
use Moose;
sub foo {
print "foo\n";
}
before 'foo' => sub { print "about to call foo\n"; };
使用method attributes也可以使用一种方法,但是这种路由在Perl中并没有很好的使用,并且仍在发展,所以我不会推荐它.对于正常的使用情况,我只需将通用代码放在另一种方法中,并将其称为每个函数的顶部：
@H_404_10@Package MyApp::Foo; sub do_common_stuff { ... } sub method_one { my ($this,@args) = @_; $this->do_common_stuff(); # ... } sub method_two { my ($this,@args) = @_; $this->do_common_stuff(); # ... }