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   24372 use strict;
  38         76  
  38         1773  
3              
4             # for temporary backward compat
5 38     38   11151 use parent qw( HTTP::Server::PSGI );
  38         113  
  38         1153  
6              
7             sub new {
8 38     38 0 226 my($class, %args) = @_;
9 38         342 bless { %args }, $class;
10             }
11              
12             sub run {
13 37     37 0 111 my($self, $app) = @_;
14 37         148 $self->_server->run($app);
15             }
16              
17             sub _server {
18 37     37   74 my $self = shift;
19 37         296 HTTP::Server::PSGI->new(%$self);
20             }
21              
22             1;
23              
24             __END__