File Coverage

blib/lib/Plack/Handler/Twiggy/Prefork/Metabolic.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::Metabolic;
2 16     16   293698 use strict;
  16         32  
  16         568  
3 16     16   120 use warnings;
  16         30  
  16         2308  
4              
5             sub new {
6 16     16 0 476 my $class = shift;
7 16         160 return bless {@_}, $class;
8             }
9              
10             sub run {
11 16     16 0 94 my ($self, $app) = @_;
12              
13 16 50       158 my $class = $ENV{SERVER_STARTER_PORT}
14             ? 'Twiggy::Prefork::Metabolic::Server::SS'
15             : 'Twiggy::Prefork::Metabolic::Server';
16 16         1098 eval "require $class";
17 16 50       210 die $@ if $@;
18              
19 16         20 return $class->new(%{$self})->run($app);
  16         280  
20             }
21              
22             1;
23              
24             __END__