File Coverage

blib/lib/Servlet/Http/HttpServletRequest.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             # -*- Mode: Perl; indent-tabs-mode: nil; -*-
2              
3             package Servlet::Http::HttpServletRequest;
4              
5 1     1   934 use base qw(Servlet::ServletRequest);
  1         1  
  1         84  
6              
7 1     1   5 use constant BASIC_AUTH => 'BASIC';
  1         2  
  1         91  
8 1     1   10 use constant CLIENT_CERT_AUTH => 'CERT-CLIENT';
  1         2  
  1         45  
9 1     1   5 use constant DIGEST_AUTH => 'DIGEST';
  1         2  
  1         42  
10 1     1   5 use constant FORM_AUTH => 'FORM';
  1         2  
  1         58  
11              
12             1;
13             __END__