在Perl中,我可以在执行包中的每个函数之前调用一个方法吗？

发布时间：2020-12-15 22:04:25 所属栏目：大数据来源：网络整理

导读：我正在写一个模块,我想要一个特定的代码片段在其中的每个功能之前执行. 我怎么做？在每个函数的开头只有一个函数调用,没有别的办法？解决方法您可以在 Moose与 method modifiers： package Example;use Moose;sub foo { print "foon";}before 'foo' = su

我正在写一个模块,我想要一个特定的代码片段在其中的每个功能之前执行.

我怎么做？

在每个函数的开头只有一个函数调用,没有别的办法？

解决方法

您可以在 Moose与 method modifiers：

package Example;

use Moose;

sub foo {
    print "foon";
}

before 'foo' => sub { print "about to call foon"; };

使用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();
    # ...
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!