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