package Miril::App::PSGI;
use strict;
use warnings;
use autodie;
use Miril::CGI::Application;
use CGI::Application::Emulate::PSGI;
sub app {
my ($self, $miril_dir, $site) = @_;
return CGI::Application::Emulate::PSGI->handler( sub {
my $miril = Miril::CGI::Application->new(
PARAMS => {
miril_dir => $miril_dir,
site => $site,
},
);
$miril->run;
} );
}
1;