File Coverage

blib/lib/Plack/Handler/Twiggy/Prefork.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 4 50.0
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 20 24 83.3


line stmt bran cond sub pod time code
1             package Plack::Handler::Twiggy::Prefork;
2              
3 60     60   357819 use strict;
  60         333  
  60         4490  
4 60     60   428 use warnings;
  60         380  
  60         13951  
5              
6             sub new {
7 60     60 0 3913 my $class = shift;
8 60         1272 bless {@_}, $class;
9             }
10              
11             sub run {
12 60     60 0 1838 my ($self, $app) = @_;
13              
14 60 50       572 my $class = $ENV{SERVER_STARTER_PORT} ?
15             'Twiggy::Prefork::Server::SS' : 'Twiggy::Prefork::Server';
16 60         5084 eval "require $class";
17 60 50       418 die if $@;
18              
19 60         132 $class->new(%{$self})->run($app);
  60         1034  
20             }
21            
22              
23             1;
24              
25             __END__