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

package Net::WebSocket::Mask;

use strict;
use warnings;

my $_loaded_rng;

sub create {
    return pack 'L', ( ( (rand 65536) << 16 ) | (rand 65536) );
}

sub apply {
    my ($payload_sr, $mask) = @_;

    $mask = $mask x (int(length($$payload_sr) / 4) + 1);

    substr($mask, length($$payload_sr)) = q<>;

    $$payload_sr .= q<>;
    $$payload_sr ^= $mask;

    return;
}

1;