File Coverage

blib/lib/Plack/App/Env.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Plack::App::Env;
2              
3 3     3   79685 use base qw(Plack::Component);
  3         16  
  3         1149  
4 3     3   29454 use strict;
  3         7  
  3         45  
5 3     3   12 use warnings;
  3         4  
  3         58  
6              
7 3     3   1329 use Data::Printer;
  3         75969  
  3         16  
8              
9             our $VERSION = 0.08;
10              
11             sub call {
12 1     1 1 20333 my ($self, $env) = @_;
13              
14 1         2 my $env_output;
15 1         5 p $env, 'output' => \$env_output;
16              
17             return [
18 1         12031 200,
19             ['Content-Type' => 'text/plain'],
20             [$env_output],
21             ];
22             }
23              
24             1;
25              
26             __END__