"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);

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

What "ladder sub {...}" means in perl?

perl

mojolicious