我正在写一个模块,我想要一个特定的代码片段在其中的每个功能之前执行.
我怎么做？
在每个函数的开头只有一个函数调用,没有别的办法？
解决方法
您可以在
Moose与
method modifiers：
package Example;
use Moose;
sub foo {
print "foo\n";
}
before 'foo' => sub { print "about to call foo\n"; };
使用method attributes也可以使用一种方法,但是这种路由在Perl中并没有很好的使用,并且仍在发展,所以我不会推荐它.对于正常的使用情况,我只需将通用代码放在另一种方法中,并将其称为每个函数的顶部：
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();
# ...
}