我有一个 CGI::Application
循环,例如
while (my $q = new CGI::Fast){
S::W::Dispatch->dispatch(args_to_new => { QUERY => $q });
my $webapp = S::W::instance();
undef $CGI::Application::INSTANCE;
S::W::instance(undef);
S::clear_instance();
}
而且,简而言之,我想将其作为新的 Catalyst 调度..
所以我想做这样的事情
sub oldRoot :Local {
...
S::W::Dispatch->dispatch(args_to_new => { QUERY => $q });
}
所以我需要知道如何在 Catalyst 中重建 $q
。这很容易做到吗?或者,我怎样才能更轻松地实现这一目标?
最佳答案
这实际上比我预期的要容易得多。
只需让您的 Controller 扩展 Catalyst::Controller::WrapCGI
,而不是 Catalyst::Controller
BEGIN { extends 'Catalyst::Controller::WrapCGI' }
然后像这样包裹整个事情..
$self->cgi_to_response($c, sub {
my $q = new CGI::Fast;
S::W::Dispatch->dispatch(args_to_new => { QUERY => $q });
my $webapp = S::W::instance();
undef $CGI::Application::INSTANCE;
S::W::instance(undef);
S::clear_instance();
} );
刚刚成功了..
关于perl - 如何将 Catalyst 请求移交给 CGI::Application?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/31984389/