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; |