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 6     6   340 use strict;
  6         24  
  6         188  
4 6     6   35 use warnings;
  6         13  
  6         161  
5              
6 6     6   85 use Module::Load ();
  6         16  
  6         782  
7              
8             my $_loaded_rng;
9              
10             sub create {
11 53     53 0 215 return pack 'L', ( ( (rand 65536) << 16 ) | (rand 65536) );
12             }
13              
14             sub apply {
15 114     114 0 1141 my ($payload_sr, $mask) = @_;
16              
17 114         255 $mask = $mask x (int(length($$payload_sr) / 4) + 1);
18              
19 114         185 substr($mask, length($$payload_sr)) = q<>;
20              
21 114         172 $$payload_sr .= q<>;
22 114         174 $$payload_sr ^= $mask;
23              
24 114         219 return;
25             }
26              
27             1;