File Coverage

blib/lib/Plack/Middleware/Reproxy/Callback.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 15 16 93.7


line stmt bran cond sub pod time code
1             package Plack::Middleware::Reproxy::Callback;
2 1     1   153777 use strict;
  1         4  
  1         70  
3 1     1   6 use parent qw(Plack::Middleware::Reproxy);
  1         2  
  1         21  
4 1     1   59 use Plack::Util::Accessor qw(cb);
  1         2  
  1         237  
5              
6             sub reproxy_to {
7 2     2 0 4 my $self = shift;
8 2         8 $self->cb->($self, @_);
9             }
10              
11             1;
12              
13             __END__