Apache mod_perl 中的 Mojolicious

Question

我有一个大约 15 岁的 Perl 应用程序。 该应用程序在 Apache 上运行，示例代码如下所示：

use Apache2::RequestUtil ();
use Apache2::RequestRec ();
use Apache2::Const -compile => qw(OK);

sub handler {
  my $r = shift;
  Apache2::RequestUtil->request($r)                                     
  $r->subprocess_env;                      

  $r = Apache2::RequestUtil->request; 

  $r->content_type("text/html");
  $r->print("Hello World");
  };

 return Apache2::Const::OK;              
}
1;

这可行，但现在我想将 Mojolicious 用于此应用程序的新功能。 但是我怎样才能将 Mojolicious 集成到这个应用程序中呢？ 当我执行以下操作时

    use Apache2::RequestUtil ();
use Apache2::RequestRec ();
use Apache2::Const -compile => qw(OK);

sub handler {
  my $r = shift;
  Apache2::RequestUtil->request($r                                     
  $r->subprocess_env;                      

  $r = Apache2::RequestUtil->request; 

  get '/:foo' => sub {
    my $self = shift;
    my $foo  = $self->param('foo');
    $self->render(text => "Hello from $foo.");
  };

 return Apache2::Const::OK;              
}
app->start;
1;

我得到一个空白页。是否可以将 Mojo 集成到我的应用中？

Answer 1

如果您想要 Mojolicious 的好处，您不应该直接使用 Apache 请求。

首先您需要一个特殊的虚拟主机配置。请参阅https://github.com/kraih/mojo/wiki/Apache-deployment 并向下滚动到 Apache/mod_perl (PSGI/Plack) 一章。我撰写了这一章，因为我在 mod_perl 下运行了十几个 Mojo 应用程序，并且需要反复试验才能找到一种可行的方法。

这里以 Apache 配置文件为例：

<VirtualHost *:80>
  ServerName myapp.local
  DocumentRoot /home/sri/myapp

  PerlOptions +Parent

  <Perl>
    $ENV{PLACK_ENV} = 'production';
    $ENV{MOJO_HOME} = '/home/sri/myapp';
    $ENV{MOJO_MODE} = 'deployment';
  </Perl>

  <Location />
    SetHandler perl-script
    PerlResponseHandler Plack::Handler::Apache2
    PerlSetVar psgi_app /home/sri/myapp/script/myapp
  </Location>
</VirtualHost>

您的第二个模块MyApp.pm 应如下所示：

package MyApp;
use Mojo::Base 'Mojolicious';

sub startup {
  my $app = shift;

  my $routes = $app->routes;

  $routes->get('/:foo' => sub {
    my $self = shift;
    my $foo  = $self->param('foo');
    $self->render(text => "Hello from $foo.");
  });

}

1;

这就是你所需要的。 Plack::Handler::Apache2 在mod_perl 和Mojolicious 之间构建一个层。当然你需要一个脚本myapp。此脚本还允许您从桌面的控制台运行 Web 应用程序 e。 G。在开发和测试期间。