File Coverage

blib/lib/Pod/Webserver/Request.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 3 0.0
total 15 18 83.3


line stmt bran cond sub pod time code
1             package Pod::Webserver::Request;
2              
3 3     3   15 use strict;
  3         7  
  3         104  
4 3     3   35 use warnings;
  3         6  
  3         423  
5              
6             our $VERSION = '3.09';
7              
8             # ------------------------------------------------
9              
10             sub method {
11 4     4 0 945 return $_[0]->{method};
12              
13             } # End of method.
14              
15             # ------------------------------------------------
16              
17             sub new {
18 3     3 0 12 my $class = shift;
19              
20 3         43 return bless {@_}, $class
21              
22             } # End of new.
23              
24             # ------------------------------------------------
25              
26             sub url {
27 4     4 0 373 return $_[0]->{url};
28              
29             } # End of url.
30              
31             # ------------------------------------------------
32              
33             1;