required => 1,
);
+has requested_engine => (
+ is => 'ro',
+ isa => 'Str',
+ predicate => 'has_requested_engine',
+);
+
+sub needs_psgi_engine_compat_hack {
+ my ($self) = @_;
+ return $self->has_requested_engine
+ && $self->requested_engine eq 'PSGI';
+}
+
has catalyst_engine_class => (
isa => 'Str',
is => 'rw',
sub _guess_catalyst_engine_class {
my $self = shift;
- my $old_engine = Catalyst::Utils::env_value($self->application_name, 'ENGINE');
+ my $old_engine = $self->has_requested_engine
+ ? $self->requested_engine
+ : Catalyst::Utils::env_value($self->application_name, 'ENGINE');
if (!defined $old_engine) {
return 'Catalyst::Engine';
}
This library is free software. You can redistribute it and/or modify it under
the same terms as Perl itself.
+=begin Pod::Coverage
+
+needs_psgi_engine_compat_hack
+
+=end Pod::Coverage
+
=cut