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