File Coverage

blib/lib/Plack/Handler/Starman.pm
Criterion Covered Total %
statement 15 18 83.3
branch 3 6 50.0
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 22 30 73.3


line stmt bran cond sub pod time code
1             package Plack::Handler::Starman;
2 83     83   21804781 use strict;
  83         1158  
  83         8170  
3 83     83   52688 use Starman::Server;
  83         481  
  83         24031  
4              
5             sub new {
6 83     83 0 5175 my $class = shift;
7 83         1147 bless { @_ }, $class;
8             }
9              
10             sub run {
11 83     83 0 5002 my($self, $app) = @_;
12              
13 83 50       891 if ($ENV{SERVER_STARTER_PORT}) {
14 0         0 require Net::Server::SS::PreFork;
15 0         0 @Starman::Server::ISA = qw(Net::Server::SS::PreFork); # Yikes.
16             }
17              
18 83         251 my %nsa;
19 83         1186 while (my($key, $value) = each %$self) {
20 166 50       1111 $key =~ s/^net_server_// or next;
21 0         0 $nsa{$key} = $value;
22             }
23 83 50       445 $self->{net_server_args} = \%nsa if %nsa;
24              
25 83         1820 Starman::Server->new->run($app, {%$self});
26             }
27              
28             1;
29              
30             __END__