File Coverage

blib/lib/Plack/Middleware.pm
Criterion Covered Total %
statement 23 23 100.0
branch 2 2 100.0
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 32 33 96.9


line stmt bran cond sub pod time code
1             package Plack::Middleware;
2 92     92   41602 use strict;
  92         202  
  92         2612  
3 92     92   480 use warnings;
  92         212  
  92         2263  
4 92     92   495 use Carp ();
  92         184  
  92         1696  
5 92     92   418 use parent qw(Plack::Component);
  92         195  
  92         599  
6 92     92   4461 use Plack::Util;
  92         202  
  92         2227  
7 92     92   37917 use Plack::Util::Accessor qw( app );
  92         263  
  92         577  
8              
9             sub wrap {
10 201     201 0 16109 my($self, $app, @args) = @_;
11 201 100       1052 if (ref $self) {
12 3         73 $self->{app} = $app;
13             } else {
14 198         5445 $self = $self->new({ app => $app, @args });
15             }
16 201         1498 return $self->to_app;
17             }
18              
19             1;
20              
21             __END__