perl - 为什么 Catalyst 中的这种条件重定向不起作用？

Question

我有一个 Catalyst应用程序并希望根据条件语句进行重定向。我在这方面遇到了麻烦，我想知道是否有人可以洞察为什么这个看似简单的任务被证明是困难的。

在我的 Root.pm模块我有一个子begin并可以重定向到另一个网站，例如www.perl.org ，但我无法重定向到我的应用程序中的页面。关于如何进行条件重定向的任何想法？

sub begin : Private {
    my ( $self, $c ) = @_;
    $c->stash->{client_id} = somenumber; # I'm setting this manually for testing

    $c->res->redirect('http://www.perl.org/') unless $c->stash->{client_id};
    $c->res->redirect('http://www.mysite.com/success') if $c->stash->{client_id}; #does not
}

Answer 1

也许你陷入了一个无限循环，你的 begin sub 将用户重定向到 Catalyst 应用程序中的另一个页面；一旦“识别出将运行的 Controller ，但在调用任何 URL 匹配操作之前”(from the Catalyst::Manual::Intro man page)，begin将再次被调用，导致另一个重定向等等。

尝试将此代码移出 begin完全;也许，正如 Htbaa 建议的那样，auto可能是你正在寻找的。标准$c->detach案例(在 Controller controller 中)是:

sub check_login :Local {
  # do something
  $c->detach('controller/login_successful') if($success);
  # display error message
}

sub login_successful :Local {
  # do something with the logged in user.
}

在这种情况下，执行 $c->res->redirect('http://example.com/login_successful')应该也可以正常工作。希望有帮助!