File Coverage

blib/lib/WWW/Webrobot/Ext/General/HTTP/Response.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition 0 2 0.0
subroutine 3 4 75.0
pod 0 1 0.0
total 12 21 57.1


line stmt bran cond sub pod time code
1             package WWW::Webrobot::Ext::General::HTTP::Response;
2 1     1   5 use strict;
  1         2  
  1         30  
3 1     1   8 use warnings;
  1         1  
  1         44  
4              
5             # Author: Stefan Trcek
6             # Copyright(c) 2004 ABAS Software AG
7              
8              
9             # extend LWPs HTTP::Response without subclassing
10             package HTTP::Response;
11 1     1   6 use strict;
  1         1  
  1         62  
12              
13             sub elapsed_time {
14 0     0 0   my ($self, $value) = @_;
15 0 0         $self->{_elapsed_time} = $value if defined $value;
16 0   0       return $self->{_elapsed_time} || 0;
17             }
18              
19             1;