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   22861 use strict;
  38         2444  
  38         1359  
3              
4             # for temporary backward compat
5 38     38   189 use parent qw( HTTP::Server::PSGI );
  38         75  
  38         560  
6              
7             sub new {
8 38     38 0 372 my($class, %args) = @_;
9 38         821 bless { %args }, $class;
10             }
11              
12             sub run {
13 37     37 0 74 my($self, $app) = @_;
14 37         222 $self->_server->run($app);
15             }
16              
17             sub _server {
18 37     37   74 my $self = shift;
19 37         407 HTTP::Server::PSGI->new(%$self);
20             }
21              
22             1;
23              
24             __END__