File Coverage

blib/lib/Net/WebSocket/Mask.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             package Net::WebSocket::Mask;
2              
3 9     9   336 use strict;
  9         18  
  9         208  
4 9     9   41 use warnings;
  9         15  
  9         177  
5              
6 9     9   37 use Module::Load ();
  9         15  
  9         809  
7              
8             my $_loaded_rng;
9              
10             sub create {
11 53     53 0 238 return pack 'L', ( ( (rand 65536) << 16 ) | (rand 65536) );
12             }
13              
14             sub apply {
15 114     114 0 1054 my ($payload_sr, $mask) = @_;
16              
17 114         260 $mask = $mask x (int(length($$payload_sr) / 4) + 1);
18              
19 114         180 substr($mask, length($$payload_sr)) = q<>;
20              
21 114         151 $$payload_sr .= q<>;
22 114         171 $$payload_sr ^= $mask;
23              
24 114         188 return;
25             }
26              
27             1;