File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	0	2	0.0
total	34	36	94.4

package HTTP::Engine::Role::Interface;
use Any::Moose '::Role';
use HTTP::Engine::Types::Core qw(Handler);
use HTTP::Engine::ResponseFinalizer;

requires 'run';

has request_handler => (
    is       => 'rw',
    isa      => Handler,
    coerce   => 1,
    required => 1,
);

# for PSGI streaming response
# using HTTP::Engine::ResponseFinalizer
sub can_has_streaming { 0 }

sub handle_request {
    my ($self, %args) = @_;

    my $req = HTTP::Engine::Request->new(
        request_builder => $self->request_builder,
        %args,
    );

    my $res;
    eval {
        $res = $self->request_handler->($req);
        unless ( Scalar::Util::blessed($res)
            && $res->isa('HTTP::Engine::Response') )
        {
            die "You should return instance of HTTP::Engine::Response.";
        }
    };
    if ( my $e = $@ ) {
        print STDERR $e;
        $res = HTTP::Engine::Response->new(
            status => 500,
            body   => 'internal server error',
        );
    }

    HTTP::Engine::ResponseFinalizer->finalize( $req => $res => $self );

    return $self->response_writer->finalize( $req => $res );
}

1;

__END__