File Coverage

blib/lib/Plack/Handler/HTTP/Server/PSGI.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 17 19 89.4


line stmt bran cond sub pod time code
1             package Plack::Handler::HTTP::Server::PSGI;
2 38     38   41391 use strict;
  38         114  
  38         2270  
3              
4             # for temporary backward compat
5 38     38   230 use parent qw( HTTP::Server::PSGI );
  38         76  
  38         1154  
6              
7             sub new {
8 38     38 0 262 my($class, %args) = @_;
9 38         418 bless { %args }, $class;
10             }
11              
12             sub run {
13 37     37 0 111 my($self, $app) = @_;
14 37         222 $self->_server->run($app);
15             }
16              
17             sub _server {
18 37     37   111 my $self = shift;
19 37         370 HTTP::Server::PSGI->new(%$self);
20             }
21              
22             1;
23              
24             __END__