File Coverage

blib/lib/Plack/Middleware/BrowserDetector.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package Plack::Middleware::BrowserDetector;
2 2     2   1894 use strict;
  2         4  
  2         81  
3 2     2   12 use warnings;
  2         3  
  2         63  
4 2     2   2292 use HTTP::BrowserDetect;
  2         32996  
  2         106  
5 2     2   1057 use parent 'Plack::Middleware';
  2         298  
  2         15  
6              
7             sub call {
8 6     6 1 18366 my ($self, $env) = @_;
9 6         33 $env->{'BrowserDetector.browser'} = HTTP::BrowserDetect->new($env->{HTTP_USER_AGENT});
10 6         3883 return $self->app->($env);
11             }
12              
13             1;
14              
15             __END__