File Coverage

blib/lib/Net/WebSocket/Mask.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 17 19 89.4


line stmt bran cond sub pod time code
1             package Net::WebSocket::Mask;
2              
3 23     23   636 use strict;
  23         49  
  23         666  
4 23     23   109 use warnings;
  23         46  
  23         3106  
5              
6             my $_loaded_rng;
7              
8             sub create {
9 54     54 0 377 return pack 'L', ( ( (rand 65536) << 16 ) | (rand 65536) );
10             }
11              
12             sub apply {
13 118     118 0 2526 my ($payload_sr, $mask) = @_;
14              
15 118         345 $mask = $mask x (int(length($$payload_sr) / 4) + 1);
16              
17 118         209 substr($mask, length($$payload_sr)) = q<>;
18              
19 118         187 $$payload_sr .= q<>;
20 118         198 $$payload_sr ^= $mask;
21              
22 118         208 return;
23             }
24              
25             1;