perl - "ladder sub {...}"在 perl 中是什么意思？

Question

我在看 tweetylicious source from github研究 Mojolicious 框架:

但是我对下面的代码感到困惑 ladder sub ... .它在 Perl 中是什么意思？它看起来不是一个普通的 Perl 语法。

顺便说一句，我在用 Strawberry Perl 5。

# The rest of the routes are specific to logged in users, so we
# add a ladder to make sure (instead of making sure inside each route)
ladder sub {
    my $self = shift;
    return 1 if $self->session('name');
    $self->redirect_to('/login') and return;
};

Answer 1

这是对名为 ladder 的子程序的调用。期望代码引用作为其第一个参数。它相当于

$tmpfunc = sub {
    my $self = shift;
    return 1 if $self->session('name');
    $self->redirect_to('/login') and return;
};
ladder($tmpfunc);