line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Net::WebSocket::Mask; |
2
|
|
|
|
|
|
|
|
3
|
24
|
|
|
24
|
|
589
|
use strict; |
|
24
|
|
|
|
|
55
|
|
|
24
|
|
|
|
|
702
|
|
4
|
24
|
|
|
24
|
|
175
|
use warnings; |
|
24
|
|
|
|
|
49
|
|
|
24
|
|
|
|
|
3253
|
|
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
my $_loaded_rng; |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
sub create { |
9
|
54
|
|
|
54
|
0
|
425
|
return pack 'L', ( ( (rand 65536) << 16 ) | (rand 65536) ); |
10
|
|
|
|
|
|
|
} |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
sub apply { |
13
|
118
|
|
|
118
|
0
|
2508
|
my ($payload_sr, $mask) = @_; |
14
|
|
|
|
|
|
|
|
15
|
118
|
|
|
|
|
323
|
$mask = $mask x (int(length($$payload_sr) / 4) + 1); |
16
|
|
|
|
|
|
|
|
17
|
118
|
|
|
|
|
204
|
substr($mask, length($$payload_sr)) = q<>; |
18
|
|
|
|
|
|
|
|
19
|
118
|
|
|
|
|
238
|
$$payload_sr .= q<>; |
20
|
118
|
|
|
|
|
200
|
$$payload_sr ^= $mask; |
21
|
|
|
|
|
|
|
|
22
|
118
|
|
|
|
|
227
|
return; |
23
|
|
|
|
|
|
|
} |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
1; |