line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
5
|
|
|
5
|
|
18027
|
use strict; |
|
5
|
|
|
|
|
9
|
|
|
5
|
|
|
|
|
163
|
|
2
|
5
|
|
|
5
|
|
18
|
use warnings; |
|
5
|
|
|
|
|
4
|
|
|
5
|
|
|
|
|
217
|
|
3
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
package Net::IMP::HTTP; |
5
|
5
|
|
|
5
|
|
604
|
use Net::IMP qw(:DEFAULT IMP_DATA ); |
|
5
|
|
|
|
|
3216
|
|
|
5
|
|
|
|
|
951
|
|
6
|
5
|
|
|
5
|
|
24
|
use Exporter 'import'; |
|
5
|
|
|
|
|
7
|
|
|
5
|
|
|
|
|
507
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
our $VERSION = '0.523'; |
9
|
|
|
|
|
|
|
our @EXPORT; |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
# create and export NET_IMP_HTTP* constants |
12
|
|
|
|
|
|
|
push @EXPORT, IMP_DATA( 'http', |
13
|
|
|
|
|
|
|
'header' => +1, |
14
|
|
|
|
|
|
|
'body' => -2, # message body: streaming |
15
|
|
|
|
|
|
|
'chkhdr' => +3, |
16
|
|
|
|
|
|
|
'chktrailer' => +4, |
17
|
|
|
|
|
|
|
'data' => -5, # encapsulated data (websocket etc): streaming |
18
|
|
|
|
|
|
|
'junk' => -6, # junk data (leading empty lines..): streaming |
19
|
|
|
|
|
|
|
); |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
push @EXPORT, IMP_DATA( 'httprq[http+10]', |
22
|
|
|
|
|
|
|
'header' => +1, |
23
|
|
|
|
|
|
|
'content' => -2, # unchunked, uncompressed content: streaming |
24
|
|
|
|
|
|
|
'data' => -3, # encapsulated data (websocket etc): streaming |
25
|
|
|
|
|
|
|
); |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
__END__ |