File Coverage

blib/lib/HTTP/Engine/Interface/PSGI.pm

Criterion	Covered	Total	%
statement	17	18	94.4
branch	5	6	83.3
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	27	31	87.1

package HTTP::Engine::Interface::PSGI;
use HTTP::Engine::Interface
    builder => 'CGI',
    writer  => {
        around => {
            finalize => sub { _finalize(@_) },
        },
    },
;

sub can_has_streaming { 1 }

sub run {
    my($self, $env) = @_;

    # get PSGI response arrayrey. generated by _finalize
    $self->handle_request(
        _connection => {
            env           => $env,
            input_handle  => $env->{'psgi.input'},
            output_handle => undef,
        },
    );
}

# generate PSGI response
# hack to HTTP::Engine::Role::ResponseWriter::Finalize
sub _finalize {
    my($next, $writer, $req, $res) = @_;
    my @headers; $res->headers->scan(sub {
        my ($k, $v) = @_;
        # PSGI spec says "The header MUST NOT contain a Status key".
        if ($k eq 'Status') {
            return if $res->code eq $v;
            die "Do not set Status header with HTTP::Engine::Interface::PSGI.";
        }
        push @headers, $k, $v;
    });
    my $body = $res->body;
    $body = [ $body ] unless ref($body);
    [ $res->code, \@headers, $body ];
}

__INTERFACE__

__END__