如何将plack应用程序中的参数传递给构建器中启用的mojolicious应用程序?

时间:2013-07-11 13:12:59

标签: perl mojolicious plack

给出了使用大量中间件组件和一个mojolicious应用程序的示例plack app 在构建器中启用(见下文),如何将参数从app.psgi传递给Mojolicious 没有使用丑陋的%ENV hack显示?传递配置的原因只是一个例子,这可能是任何标量/对象。

app.psgi

use Plack::Builder;

$ENV{CONFIG} = {...};

builder {
    ...
    Mojolicious::Commands->start_app('MyApp');
};

MyApp.pm

package MyApp;

use Mojo::Base 'Mojolicious';

sub startup {

    my $self = shift;
    my $r = $self->routes;

    $self->config( $ENV{CONFIG} );

    $r->route('/')->to('home#');        
}

1 个答案:

答案 0 :(得分:2)

这是一个有趣的问题,通过查看来源最容易解决。在您的示例中,您正确使用

Mojolicious::Commands->start_app('MyApp');

查看source表明start_app是一个相当简单的包装器:

sub start_app {
  my $self = shift;
  return Mojo::Server->new->build_app(shift)->start(@_);
}

事实证明build_appas well

sub build_app {
  my ($self, $app) = @_;
  local $ENV{MOJO_EXE};
  return $app->new unless my $e = Mojo::Loader->new->load($app);
  die ref $e ? $e : qq{Couldn't find application class "$app".\n};
}

返回应用类的新实例。 Mojolicious类的new函数是more involved,但最后是it just calls the familiar startup method and returns the instance

这意味着您无法轻松地从标准方式使用的中间件包装器向startup方法传递参数。我可以想到两种机制来完成你想要做的事情:1)编写你自己的build_app函数来替换服务器的方法,但是将参数传递给$app->new(它将被传递给startup反过来)或2)编写自己的start_app函数,可以调用另一个startup函数。

# in MyApp.pm

sub startup {
  ... # as before
}

sub after_startup {
  ... # your new code here,
      # or even most of what was in `startup` before
}

# app.psgi

builder {
  ...
  my $app = Mojo::Server->new->build_app(shift);
  $app->after_startup(@your_args_here);
  $app->start(@_);
}